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SEQ 0001 

1 TITLE CZMLADO ML=11 LOGIC TEST 

-SBTTL USER DOCUMENTATION 

oREM & 
IDENTIFICATION 

PRODUCT CODE: AC-S388D-MC 

PRODUCT NAME: CZMLADO ML11 LOGIC TEST 

PRODUCT DATE: 19=MAR~82 

MAINTAINER: MEMORY DIAGNOSTIC ENGINEERING 

AUTHOR : D.W. NEALE 









THE ee IN THIS DOCUMENT IS 








NOTICE NOT BE. ape 
EQUIPMENT CORPORATION. NO 
RESPONSIBILITY FOR ANY ERRORS THA IS DOCUMENT. 






NO RESPONSIBILITY IS ASSUMED FOR 
TWARE ON EQUIPMENT THAT IS NOT 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1981, 1982 BY DIGITAL EQUIPMENT CORPORATION 


IABILITY OF 
ITAL OR ITS 





SUPPLIED BY DIG 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

Sp ty: a WAS CONTRACTED BY 
Meth ALD ORDER TO AID MEMORY 

ML-11, AID FIELD SERVICE FOR FIELD REPAIR 


THIS DIAGNOSTIC PRODUCT WILL BE DESI 
ML-11A OR ML- ‘ie UNITS OFF A SINGLE RN 










THE FUNCTIONAL LEVEL (FRU) OF THIS DIAGNOSTI 
LOGIC FUNCTION LEVEL. UPON DETECTION OF AN 
THE LOGIC FUNCTION AND RESPECTIVE 
BE PRINTED TO THE OPERATOR. 
THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVI ISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE * RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S HERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 oF THIS DOCUMENT. 
1.2 SYSTEM REQUIREMENTS 
PDP-11 WITH MINIMUM OF 28K WORDS OF MEMORY . 
CONSOLE TERMINAL 
RH11 OR RH70 
1 TO 8 ML-11A OR ML-11B DRIVES ON INTERMIXED BUS 
XXDP+ LOAD MEDIA 
1.3. RELATED DOCUMENTS AND STANDARDS 

1. SUPPRGC.DOC 

2. SUPINT.MEN 

3. SUPFUN.C 

4. XXDPPLUS.DOC 

5. BLISS LANGUAGE GUIDE 


6. BLISS-16 USER'S GUIDE 












1.4 ASSUMPTIONS 


IT WILL BE ASSUMED THAT PRIOR TO THE RUNNING OF THIS 
JATE CPU, MAIN MEMORY AND RH CONTROLLER 
BEEN SUCCESSFULLY RUN. 
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THIS DIAGNOSTIC WILL HOWEVER PERFORM MINIMAL RH TESTS 10 ENSURE ITS 
ee AND BASIC FUNCTIONALITY BEFORE LOGIC TESTS ARE ALLOWED TO 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP*+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
a ELEVEN LEGAL COMMANDS FOR THE DIAGNOS 


TIC a ne as 
VISOR). THIS SECTION LISTS THE COMMANDS AND 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 































COMMAND EFFECT 
START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONT INUE CONTINUE AT TEST THAT WAS Cagaad (AFTER “C) 
PROCEED ol Kye wm op a 
EXIT RETURN , fon Teerine cn OPERATION ONLY!) 
ADD ACTIVATE "A UNI a F TING (¢ oe ARE 

C sntere AT START TIME 
DROP DEACTIVATE. A A_UNIT 
PRINT BY THE "DiAgNosTiC ay res tg CIF IMPLEMENTED 
DISPLAY TYPE A nee 7 ALL tag te NF ORMAT ION 
FLAGS TYPE STATE OF (see SECTION 2.3) 
ZFLAGS CLEAR ALL FLAGS ¢ (SE SECT! ) 












A COMMAND CAN BE RECOGNIZED 
YOU MAY, FOR EXAMPLE, TYPE ° 


2.2 SWITCHES 


RST T 


‘STA INS INSTEAD OF 


E CHARACTERS. SO 


ARE SEVERAL SWITCHES WHICH THEN usr. TO Mt ld SUPERVISOR OPERATION. 


THERE 
THESE SWITCHES ARE APPENDED TO 


Meets beecar ALL OF ag LEGAL 
SWITCHES ARE TABULATED BELOW W tH A BRIEF DES 


TPT ION OF EA 
" DESIGNATED 6 ay “ppppp"’. 














IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER I 
SWITCH . EFFECT 
/TESTS:LIST Tie Lis ONLY T TEST ore gare IED _IN 
THE aneth T. LIST IS A ST 











Sbetaa 
THIS Tus Uist atte uicend 6 To 





/PASS:DDDDD —~ERECUTE DDD 
/FLAGS:FLGS in section. DESCRIBED 
| /EOP:DDDDD =—séREPORT PASS ER E 
-—-DBDDD PASSES. ONLY: a " 0 $4000) 
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/UNITS:LIST rest (oes bacr ONLY THOSE UNITS “Sad 
E LIST. Tt EXAMPLE = /UNITS:0:5:10-12 
USE "MTs 0,5.10,11,12 (UNIT NUMBERS = 0-63) 
EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1~5/PASS: 1000/EOP: 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 Pin 


















5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 T TIRES AND THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY y THE FIRST THREE CHARACT YOU MAY, 


FOR EXAMPLE, TYPE *‘/TES:1-5°' INSTEAD OF '‘/TESTS:1-5"'. 
gon IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


TESTS PASS FLAGS EOP UNITS 





2 
~ 

mt 
ues 
=< 

> > 2 4 

<< 3S OE Oe 

> > 2. 4 


2.35 FLAGS 
FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL P. TERS SUCH 
LOOPING ON ERROR. AL CLE AND . 
CLEARED UNTIL Sgt tad HH 

ARE ALSO —.— wrinee 









CLEAR 
COMMANDS . 
N SET OR 














FLAG EFFECT 
HOE HALT ON ERROR = CONTROL I TURNED TO 
Loe ‘eae on sEnvy CES COMMAND gg 
IER* iNet 
IBE* con Al 
pat Leve (F Oa CONTA x 
IXE* INHIBIT ia ke RIS ¢ 
PRI DIRECT A ESSAGES. ie tin PRINTER 
§ TEST XECUTES 


PNT TAUmbeR AS T 
BOE 


0 errs ns ee ee | ne ee eee 
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UAM TTENDED a AD REPhat INTERVENTION) 
ISR IMueit Reet senetite nc S_ (DOES NOT 
Ics i ial DO NOT SUPPORT 

STATISTICAL REPORT! 

IDU INHIBIT PROGRAM DROPPING OF UNITS 

Ve Tone an ft el CODE 

EVL EXECUTE EVALUATION (ON pp hemnsT ICS WHICH 
HAVE EVALUATION SUPPORT 


“ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 





SEE THE XXDP+ USER’ S_ MANUAL FOR MORE DETAILS ON br YOU MAY 
SPECIF ig 3 THAN ONE FLAG WITH THE 7 SWITCH. FOR EXAMPLE, 


TO CAUSE THE 0 LOOP INHIBIT ERROR REPORTS 
AND TYPE A "BELL'’ ON ERROR, YOU MAY USE THE FOLL 


OWING STRING: 
/FLAGS :LOE : IER: B0E 








2.4 HARDWARE QUESTIONS 


WHEN A eg IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER F NF 
















FOR EACH 
PARAMETER CODING CALLS 
GPRMA MSGH1,0.0, 

9.0 0 9,177 «VES YES 
GPRMD 4.0 O°977" 0; WES 
GPRMD MSGHG 77,1,16.,¥ES 
CPRMD mscHs. 19. tes" »7,¥ES 
GPRML mSGH? 1501, ¥6S" 
PARAMETER CODING MESSAGES 


eASCIZ 











DR> SiA <CR> 


; 
NN eeeeaeaSeeSe 4 
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CHANGE HW <L> ? Y <CR> 
# UNITS <D> 21. <CR> 


14 <CR> 
<CR> 





2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE pate HE HARDWARE oues TONS OR AFT 
OR CONTINUE COMMAND TIME SERVICES WIL Dn 


TERS WILL oe ny SPECIFIC 
OPE MOD YOU WILL PROMPTE c SW (L) 2?” 
ay yOu WISH TO CHANGE ANY PARAMETERS. ° ANSWER 6 YPING 







ER 
( 





THE FOLLOWING OPTIONS ARE AVAILABLE FOR OPERATOR SELECTION: 
1. ENABLE PRINTING OF DRIVE SERIAL NUMBERS. 


2. LIMIT THE R OF ERRORS ge gl PER EACH DETECTED ERROR. 
ERRORS WILL PRINTED PER ERROR BEFORE THE 





OF 1 
ERROR IS EXITED. 


3. ENABLE RH AND ML11 REGISTER DUMP ON ERRORS. 
4. ABORTING PROGRAM EXECUTION AFTER ONE COMPLETE PASS. 


5. ENABLE MANUAL INTERVENTION TESTS. 


EXTENDED P-TABLE DIALOGUE 
WHEN YOU ANSWER THE HARDWARE QUE 
he TABLE THAT ee tes STiois F 
to BUILD THIS es 
UNIT TO oa TESTED. E SUCH AS 
ONT : OR - OMMUNI CATION 


A MASS C 
A ie 5 BIT SEVERAL LINES OME S TEDIOUS SINCE MOST OF 


2.6 







Geen ARE BUILDING ENTRIES 




















Hy ILLUSTRATE A MORE sister 
A cnihoe f EG me XY 


C MODUL H EIGHT UNIT 
THESE UNITS ARE DESCRIBED BY THE 
IS ONE HARDWAR TER THAT CAN VARY 





Q-FACTOR. THIS Q-FACTOR MAY BE ° OR 1. BEL 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNI 


SEQ 0007 


ee oe eee — —<— _ 
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# UNITS (D) ? 8&<CR> 


IT 1 
CSR ADDRESS (0) ? 2 Occ 
SUB=DEVICE #.(0) ? 
“FACTOR (0) o 2? 1<C 
UNIT 2 : 
CSR ADDRESS (0) »? , ee 
SUB-DEVICE # (0) 
Q-FACTOR (0) 1 ? *octas 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UTA ADDRESS (0) <cR> 
SUB-DEVIEE & (0) J 1g0000 
Q-FACTOR (0) 02 <CR> 


UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0).2? 4<CR> 
Q-FACTOR (0) 0? <CR> 


UNIT 


6 
CSR aevitee (0) ? De: 
SUB-DEVICE # (0) ? — 
Q-FACTOR (0) 0 ? 


UNIT 7 

CSR ADDRESS (0) ? -1go00gecR> 
SUB-DEVICE # $ g ? 

Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ADDRESS yecgoece> 
SUB-DEVICE Py (0) ? 


Q-FACTOR (0) 1 <CR> 


MULTIPLE UNITS! 


YOU CAN SEE 
DO _NOT VARY SIGNIFICANTLY FROM UNIT T 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE TI 
Fe ‘es NG 









FROM THE ABOVE EXAMPL 


PLE 
HE 





THE SAME TABLE USING TH 





# UNITS (D) ? 8&<CR> 


6 





THE 


MULT 





I 


I 
i 





PARAMETERS 
TAR THE PROCEDURE GHOUN IS 


cn -- 


SEQ 0008 


7 ~ 
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SUB-DEVICE # (0) ?. 0,1<CR> 


UNIT 1 
CSR ADDRESS (0) ? ‘Btcen 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 
CSR ADDRESS (0) ? 1 =3<CR <CR> 
se rten to) 6 502 ‘. tas R> 


IT 7 
CSR ADDRESS (0) ? 16 <cR> 
SUB-DEVICE # (0) ? <CR> 
Q-FACTOR (0) 0? 1< one 


AS YOU CAN SEE_IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMAT JON GIVEN IN 
ONE PASS T ONS. IN THE FIRST PASS, 
ARE BUILT SINCE TWO SUB-DEVICES AND Q=FACT WERE” 
SERVICES ASSUME THAT THE CSR ADDRESS 
WAS SPECIFIED ONLY ONCE. 
BUILT. THIS 1S BECAUS 
CONSTRUCT. TELLS THE RUNTIME SERVICES 101 

FROM THE FIRST NUMBER TO THE SECOND. IN T NSUB-DEVICES 
2, 3, 4 AND 5 WERE SPECIFIED. CIF THE SUB-DEVICE WERE SPECIF ie 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUS 
BE ON AN EVEN BOUNDARY.) THE CSR S AND Q=FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 1 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


# UNITS (D) ? 8<CR> 












UNIT 1 
CSR ADDRESS (0) ? 1 CR> 
SUB-DEVICE # (0) ? <CR> 


Q-FACTOR (0) 0 ? 0,1.,0....1,1<CR> 


YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
r NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 
2. GIVE THE DATE 
3. TYPE *R CZMLA’’ 
4. TYPE *'START’’ 
5. ANSWER THE "CHANGE HwW’’ QUESTION WITH “'Y'’ 


settee eee seeetersneeestteeienennnstienne 


SEQ 0009 


eee eee 
| oe eee cen eee re 


eerste 
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6. ANSWER ALL THE HARDWARE QUESTIONS 
7. ANSWER THE ‘‘CHANGE SW’ QUESTION WITH ‘'N’’ 
WHEN voy roy THIS Sy et YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5 
3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 
THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR oes 


ARE ALWAYS PRINTED UNLESS THE "IER'’ FLAG IS SET (SECTION 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 





ere ere | a ee ee + - = 





NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC :XXXXXX 
ERROR MESSAGE 


o WHERE ; — ; DIAGNOSTIC NAME 
TYPE = + = ERROR TYPE sare FATAL, DEV FATAL, HARD OR SOFT) 


UNIT NUMBER = 0 N (N IS LAST UNIT IN PTABLE) 

TST NUMBER = TEST AND SUBTEST. WHERE ERROR OCCURRED 

PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 
BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ei PRINTED UNLESS 
THE “'IER"’ OR “'IBR" FLAGS ARE SET (SECTION HESE MESSAGES 


ARE PRINTED AFTER THE ASSOCIATED GENERAL ME 
EXTENDED ERROR MESSAGES CONTAIN eemaerne o reer gett 
FLAGS. A ARE SET (SECTION 2.3). 


SUCH AS REGISTER CONTENTS OR DATA. 
PRINTED UNLESS THE "IER’’ “OR ' 

THESE MESSAGES ARE PRINTED rer THE ASSOCTATED GENERAL ERROR 
MESSAGE AND ANY MASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

ERROR MESSAGES ARE HANDLED VIA A DICTIONARY STRUCTURE. 


WORDS AND PHRASES ARE MULTIPLY REFERENCED USING ONLY 
ONE COPY OF THE WORD OR PHRASE IN CORE. 


THIS PERMITS EXTENSIVE ERROR MESSAGE PRINTING AT MINIMAL 
STORAGE REQUIREMENTS. 


THE FOLLOWING DEMONSTRATES TYPICAL ERROR MESSAGES: 

ML11 DVC FTL ERR 00077 ON UNIT 07 TST 027 SUB 002 PC: 050432 
ASYNC MODULE FAILUR 

EXCESSIVE DATA ERRORS DURING iNITIAL ARR RD_WRT 


ML11 DvC FTL ERR 00112 ON UNIT 03 TST 037 SUB 000 PC: 056466 
ASYNCHRONOUS MODULE FAILURE 
































a - = = 
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FA 


ARRAY ADRS MULTIPLEXER FAILURE 
ILED AT DSA: 


3.2.1 ERROR NUMBER DEFINITION 


ERROR NO. 





co on oO uw FWA — 


NM AR eS a | 
2PUBSVBeseaseazrzacs2ze2 


FAILING LOGIC 





DRIVE DID NOT RESPOND WITHIN 1.5 US 

DSA REG READ/WRITE ERROR DURING DRIVE SEL TEST 
UNIQUE DRIVE SELECTION ERROR 

ML REGISTER READ WRITE ONES/ZEROES ERROR 

ML REGISTER SHIFTING ONES/ZEROES ERROR 

ML REGISTER INITIALIZATION ERROR 

CONTROL BUS BAD PARITY NOT DETECTED. (CPAR NOT SET) 
CONTROL BUS GOOD PARITY NOT DETECTED. (CPAR SET) 
CONTROL BUS BAD PARITY GENERATED. (MCPE SET) 

ARRAY SIZING LOGIC ERROR 

GO BIT NOT CLR AFTER NOOP FUNCTION 

ILF BIT SET DURING NOOP FUNCTION 

OPI BIT SET DURING NOOP FUNCTION 

GO BIT NOT SET DURING WRITE CHECK FUNCTION 

DRY BIT CLEARED WHILE GO CLEARED DURING WRITE CHECK FUNCTION TEST 
DRY BIT SET WHEN GO SET DURING WRITE CHECK FUNCTION 


ILF SET DURING WRITE CHECK FUNCTION 


OPI BIT SET DURING WRITE CHECK FUNCTION 
GO BIT NOT CLEAR AFTER WRITE CHECK FUNCTION ‘ASYNC FAILURE* 
GO BIT NOT CLEAR AFTER WRITE CHECK FUNCTION "SYNC FUNCTION’ 
DRY BIT NOT SET AFTER WRITE CHECK FUNCTION 

GO BIT NOT CLEAR AFTER WRITE CHECK FUNCTION "ASYNC FAILURE’ 
GO BIT NOT CLEAR AFTER WRITE CHECK FUNCTION ‘SYNC FAILURE* 
GO BIT NOT SET DURING WRITE FUNCTION 


SEQ 0011 


OS ST 


"he CLL LLL 
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25 DRY BIT CLEAR WITH GO CLEAR DURING WRITE FUNCTION. 
26 DRY BIT SET WITH GO BIT DURING WRITE FUNCTION. 
27 ILF BIT SET DURING WRITE FUNCTION 
28 OPI BIT SET DURING WRITE FUNCTION 
29 . GO BIT NOT CLEAR AFTER WRITE FUNCTION "ASYNC FAILURE’ 
30 GO BIT NOT CLEAR AFTER WRITE FUNCTION "SYNC FAILURE’ 
31 DRY BIT NOT SET AFTER WRITE FUNCTION. 
32 GO BIT NOT CLEAR AFTER WRITE FUNCTION *ASYNC FAILURE’ 
33 GO BIT NOT CLEAR AFTER WRITE FUNCTION ‘ASYNC FAILURE’ 
34 GO BIT NOT SET DURING READ FUNCTION. 
35 DRY BIT SET WHILE GO CLEAR DURING READ FUNCTION. 
26 | DRY BIT SET WHILE GO SET DURING READ FUNCTION. 
37 ILF BIT SET DURING READ FUNCTION. 
38 OPI BIT SET DURING READ FUNCTION 
39 GO BIT NOT CLEAR AFTER READ FUNCTION ‘ASYNC FAILURE’ 
40 GO BIT NOT CLEAR AFTER READ FUNCTION "SYNC FAILURE® 
41 DRY BIT NOT SET AFTER READ FUNCTION 
42 GO BIT NOT CLEAR AFTER READ FUNCTION ‘ASYNC FAILURE' 
43 GO BIT NOT CLEAR AFTER READ FUNCTION ‘SYNC FAILURE* 
44 | GO BIT NOT CLEAR AFTER CLEAR FUNCTION 
45 DRY BIT SET WHILE GO SET DURING CLEAR FUNCTION 
46 DRY BIT NOT SET AFTER CLEAR FUNCI: 7%. 
47 LF BIT SET DURING CLEAR FUNCTION 
48 OPI BIT SET DURING CLEAR FUNCTION 
49 ERROR REGISTER DID NOT CLEAR AFTER DRIVE CLEAR. 
50 COMPOSITE ERROR BIT NOT SET AFTER MLER BITS SET 
51 : ATA BIT SETTING ERROR | 
52 ATTN BIT SETTING ERROR 


53 ATTN BIT NOT CLEARED BY MLCS1 NOOP FUNCTION 
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SEQ 0013 


ATA BIT NOT CLEAR AFTER WRITING A ONE TO IT 
WRITING A ONE TO OTHER DRIVES ATA BIT CLEARED THIS DRIVES ATA BIT 

GO BIT NOT CLEARED AFTER SEARCH FUNCTION 

ILF BIT SET DURING SEARCH FUNCTION 

NO-OP FUNCTION DID NOT CLEAR THE ATA BIT AFTER BEING SET 

ATTN BIT NOT SET AFTER SEARCH FUNCTION 

OPI BIT SET DURING SEARCH FUNCTION AT PRESENT ARRAYS 

OPI BIT NOT SET AFTER SEARCH AT NON-PRESENT ARRAYS 

GO BIT NOT CLEAR AFTER READ=IN@PRESET FUNCTION 

ILF BIT SET DURING READ-IN-PRESET FUNCTION 

OPI BIT SET DURING READ-IN-PRESET FUNCTION 

ECC INITIALIZE DID NOT CLEAR MEMORY AFTER POWER UP WITH BAD BATTERY BACK-UP 
GO BIT NOT CLEARED AFTER ILLEGAL FUNCTION 

ILLEGAL FUNCTION NOT DETECTED 

OPI BIT SET WITH ILLEGAL FUNCTION 

RMR BIT NOT SET AFTER MODIFYING REG WITH FUNCTION IN PROGRESS 

MEMORY ARRAY PROM CHECK SUM ERRORS DURING INITIAL PROM READS - 

NIBBLE OFF SET COUNTS GREATER THAN 14 DETECTED 

UNS BIT SET WITH GOOD UV DATA 

UNS BIT SET WITH GOOD UV DATA 

UNS BIT NOT SET WITH BAD UV DATA 

UNS BIT NOT SET WITH BAD UV DATA 

MEMORY ARRAY PROM ROW/COL DATA ORING ERROR 

BAD NIBBLE THRESHOLD OF 36 EXCEEDED DURING INITIAL ARRAY READ/WRITE TEST 
UNIQUE PROM SELECTION ERROR 

FAILURE TO FIND GOOD ROW DURING READ WRITE ARRAY WITH PROM DATA 

MEMORY ARRAY TIMING AND CONTROL FAILURE TO REFRESH MEMORY 


DATA ERRORS DETECTED AT LAST BLOCK DURING ADDRESSES COUNTER TEST. (TEST ABORTED) 
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101 
102 
103 
104 
105 


‘ 

107 
108 
109 
110 
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SEQ 0014 
ADDRESS COUNTER ERROR 
UNIQUE MEMORY ARRAY MODULE SELECTION FAILURE 
ALL BITS IN ALL NIBBLES TESTED DURING SEQUENCER EXISTENCE TEST WERE IN ERROR (FAIL 
INTERMEDIATE FAILURE. SOME BITS IN NIBBLES TESTED WERE IN ERROR (CONTINUE TESTING) 
SYNC BUS DATA BIT WRITE PATH CONTINUITY FAILURE 
SYNC BUS DATA BIT READ PATH CONTINUITY FAILURE 
RAM BUS ADRS COUNTER FAILURE TO LOAD/UNLOAD SKIP RAM DURING WRITE FUNCTION 
RAM BUS ADRS COUNTER FAILURE TO LOAD/UNLOAD SKIP RAM DURING READ FUNCTION 
SYNC DATA BUS WRITE PATH UNIQUE DATA BIT FAILURE (ALL ONES NIBBLE PATTERN) 
SYNC DATA BUS WRITE PATH UNIQUE DATA BIT FAILURE (SHIFTED BIT NIBBLE PATTERN) 
SYNC DATA BUS WRITE PATH UNIQUE DATA BIT FAILURE (ALL ONES NIGBLE PATTERN) 
SYNC DATA BUS READ PATH UNIQUE DATA BIT FAILURE 
NIBBLE OFF SET COUNTERS FAILURE 
CS1 FUNCTION ABORT FAILURE DURING CLASS ‘A’ ERROR 
CS1 FUNCTION ABORT FAILURE DURING CLASS 'B’ ERROR 
LBT BIT SET BEFORE A LAST BLOCK TRANSFER 
DSA REGISTER INCREMENT FAILURE DURING NON LAST BLOCK TRANSFERS. 
LST BIT NOT CLEAR AFTER LOADING DSA REG 
L8T BIT NOT SET AFTER A LAST BLOCK TRANSFER 
DSA REGISTER INCREMENT FAILURE AFTER A LAST BLOCK TRANSFER 
IAE BIT NOT SET AT INVALID SECTOR ADDRESSES 
AOE BIT NOT SET AFTER ADDRESS OVERFLOW 
SC BIT NOT AFTER CS1 FUNCTION ADORT 
GOOD DATA BUS PARITY NOT DETECTED 
GOOD DATA BUS PARITY NOT GENERATED 
UNS BIT SET AFTER WRITING TO A SECTOR DURING PROM DATA TEST 
UNS BIT NOT SET WITH BAD UV DATA 
WCE BIT SET DURING MBUS WRITE/READ FUNCTION TROUBLE SHOOTING LOOP TEST 
UNIQUE REGISTER SELECTION TEST FAILURE 


EEE Ls sss eesssississssseeensusssasssssssssasnsussstsssnssusstissssnmnssuerememeeree---.......... - —— — 
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111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 


138 
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SEQ 0015 
FAILURE TO FIND GOOD MOS RAM ROW DURING ARRAY ADRS MUX TEST (INTERMEDIATE DIAG MSG) 
UNIQUE ARRAY MODULE ROW/COL ADDRESSING FAILURE 
DRIVE TYPE REGISTER VALUE WAS NOT CORRECT 
TRE BIT SET UNEXPECTEDLY DURING A WRITE CHECK TRANSFER (INTERMEDIATE DIAG ERROR) 
TRE BIT SET UNEXPECTEDLY DURING A WRITE TRANSFER (INTERMEDIATE DIAG ERROR) 
TRE BIT SET UNEXPECTEDLY DURING A READ TRANSFER (INTERMEDIATE DIAG ERROR) 
TRE BIT DID NOT SET AFTER A REGISTER MODIFICATION ERROR (EXCEPTION WAS NOT ASSERTED) 
DATA DIAGNOSTIC REGISTER (D1 D2 E2) INITIALIZATION ERRORS 
RH CONTROLLER FAILED EXISTANCE PROBE TEST 
NED BIT SET DURING MASS BUS HANDSHAKE PROBE 
DATA DIAGNOSTIC REGISTER (D1 D2 E2) ONE'S ZERO'S READ/WRITE ERRORS 
DATA DIAGNOSTIC REGISTER (D1 D2 E2) SHIFTING 1°S AND 0°S READ/WRITE ERRORS 
ECC HARD ERROR BIT NOT SET WHEN UNCORRECTABLE ECC ERRORS WERE READ 
ECC ERROR REGISTER FAILURE TO LATCH FAILING ERROR CORRECTION INFORMATION 
ECC ERROR REGISTER FAILURE TO CLEAR 
ECC ERROR LOCATION REGISTER FAILED TO CLOCK IN DSA ADDRESS 
ECC ERROR LOCATION REGISTER DATA BIT ERRORS 
ECC ERROR LOCATION REGISTER INITIALIZATION ERRORS 
ECC HARD ERROR BIT FAILED TO SET NOT SET 
DATA CHECK ERROR BIT FAILED TO SET / NOT SET 
CRC DATA BUS FAILURE. BIT CONTINUITY / UNIQUENESS ERRORS 
UNIQUE NIBBLE CRC GENERATION CODE FAILURES 
UNIQUE WORD CRC GENERATION CODE FAILURES | 
CORRECTABLE ERROR SYNDRONE DECODE FAILURE. FAILURE TO COMPLIMENT EXPECTED FAILING B 
CORRECTABLE ERROR SYNDRONE DECODE FAILURE. UNEXPECTED BIT(S) FOUND COMPLIMENTED 
ECH OR UNC BIT NOT SET DURING READS WITH ECC ERRORS IN CHANNEL > 35 


ERROR CORRECTION WAS NOT INHIBITED DURING UNCORRECTABLE ECC ERRORS. 
UNEXPECTED BIT(S) WERE FOUND C IMENTED 


ECH OR UNC BIT NOT SET WHEN MULTIPLE CHANNEL ERRORS WERE READ 
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SEQ 0016 | 

” SEAR STHO, AER RUS RUNRS UomecTLE ce eno, 
140 ECC FAILURE TO DETECT AND CORRECT SINGLE BIT CHANNEL ERRORS 
141 ECC FAILURE TO DETECT AND CORRECT MULTIPLE BIT CHANNEL ERRORS 
142 FAILURE TO FIND GOOD BLOCK DURING ARRAY SELECT TEST 
148 SC BIT SET DURING MASS BUS WRITE OR WRITE CHECK TRANSFERS DURING TEST 21 AND 61 
149 VV BIT WAS SET WHEN TESTED AND GOT CLEARED AFTER A READ-IN-PRESET FUNCTION WAS PERFO 
150 VV BIT WAS CLEARED WHEN TESTED AND DID NOT GET SET WHEN A READ-IN-PRESET FUNCTION WA 
151 THE UNS BIT DID NOT SET WHEN BOX POWER WAS LOST 
152 THE VV BIT DID NOT CLEAR WHEN DRIVE AC POWER RESUMED WITH BAD BATTERY BACK-UP 
153 | DC LO DID NOT INITIATE "MB DIS LO* RESULTING IN THE ML-11 REGISTERS NOT GETTING CLEA 
156 VV BIT GOT CLEARED AFTER POWER FAIL WITH GOOD BATTERY BACK-UP 
155 ECC INIT CLEARED OUT MEMORY AFTER POWER FAILED WITH GOOD BATTERY BACK-UP 
156 BATTERY BACK-UP FAILED TO MAINTAIN DATA INTEGRITY DURING POWER FAIL 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT 1S GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE "EOP" SWITCH CAN BE USED 


ONT. 
OF PASS MESSAGE IS PRINTED. I 








TOC — HOW OFTEN THE 
SECTION 2.2 DESCRIBES SWITCHES. 


5.0 DEVICE INFORMATION TABLES 
HARDWARE DEFAULT PTABLE 


aa 
6. 
6.0 TEST SUMMARIES | 


TST1. MASS BUS READY 
TEST THE RH CONTROLLER FOR EXISTANCE 





S 
me 1=16K, 0=64K 
1sVES, 0=NO 








TST6. 


TST7. 


TST8 


TST9. 


TST10. 


TST11. 


TST12. 


TST13. 


TST14. 


TST15. 


ee 
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MASS BUS HANDSHAKE 
TEST MASS BUS ===> UNIBUS COMMUNICATIONS 

DRIVE PRESENT 

TEST TO SEE IF THE DRIVE UNDER TEST EXIST. 

DRIVE SELECTION 

SEE IF SELECTING OTHER DRIVES ON RH EFFECTS DRIVE UNDER TEST. 

READ WRITE REGISTER ONE'S ZERO'S TEST 

TEST REGISTERS READ WRITE CAPABILITY AND UNIQUENESS 

READ WRITE REGISTER SHIFTING ONE'S AND ZEROES 

TEST REGISTERS FOR UNIQUE DATA BITS. 

REGISTER INITIALIZATION 

TEST REGISTERS FOR CORRECT INIT DATA. 

REGISTER SELECTION TEST 

TEST FOR UNIQUE REGISTER SELECTION 

PRINT DRIVE SERIAL NUMBER 


PRINT THE CONTENTS OF MLSN IF THE SOFTWARE STION WAS 
ANSWERED ‘YES’. - 


C-BUS PARITY 
TEST IF DRIVE CAN DETECT BAD PARITY ON C-BUS AND GENERATE 
SO0D PARITY. 





MEMORY SIZING 


SEE IF MEMORY SIZING LOGIC DETECTS AND RECORD CORRECT NUMBER 
OF ARRAYS PRESENT. 


NO-OP FUNCTION 

SEE IF A NO-OP FUNCTION CAN BE EXECUTED. 

WRITE CHECK FUNCTION 

SEE IF A WRITE CHECK FUNCTION CAUSES THE DRIVE TO HANG. 
WRITE FUNCTION 

SEE IF A WRITE FUNCTION CAUSES THE DRIVE TO HANG. 

READ FUNCTION 





CZMLADO ML-11 LOGIC TEST 
USER DOCUMENTATION 





———— 


F 
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SEQ 0018 


SEE IF A READ FUNCTION CAUSES THE DRIVE TO HANG. | 
TST16. CLEAR FUNCTION 
SEE IF A CLEAR FUNCTION CAN BE EXECUTED. 
TST17. DIAGNOSTIC REGISTER READ WRITE 
TEST THE DIAGNOSTIC REGISTERS FOR 
S/0°S , SHIFTING 1°S/0'S AND 
INITIALIZATION 
TST18. COMPOSITE ERROR BIT TEST 


43 IF EACH INDIVIDUAL ERROR BIT IN MLER CAUSES A COMPOSITE 





TST19. ATA BIT 
TEST IF THE ATA BIT CAN BE SET AND CLEARED. 
TST20. SEARCH FUNCTION 
ag iF A SEARCH FUNCTION CAN BE EXECUTED ON ALL PRESENT ARRA- 





TST21. POWER FAIL TEST Trine NTERVENTION 
TEST THE VV BIT a ee be — Ecc I r "REGISTER CLEARING 
UNS BIT SETTING, AC 
TST22. ILLEGAL FUNCTION 


SEE _ IF WRITING AN I TION TO CS1 CAN CTED AND 
THAT A TRANSFER IS an INETIATED- _—— 


TST23. REGISTER el ae REFUSED 


Bi SAA dle WE SR se 









vile elt 
TST24. INITIAL PROM TEST 

TEST PROMS FOR EXISTENCE. 
TST25. PROM ‘OR’ FUNCTION TEST 


TEST THE PROM DATA ORING FUNC 
TST26. UV ERROR TEST 
rest ABILITY OF UV ERR PROMS TO DETECT ALL POSSIBLE CHECK SUM 





TST27. INITIAL ARRAY TEST 
TEST ARRAY TIMING AND CONTROLFOR EXISTENCE. 
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TST28. PROM SELECTION TEST 


TST29. 


TST30. 


TST31. 


TST32. 


TST3S. 


TST34. 


TST35. 


TST36. 


TST37. 


TST38. 


TST39. 


TEST FOR UNIQUE PROM SELECTION. 
READ WRITE MEMORY ARRAY WITH PROM DATA (DIAG MODE) 

SEE IF MEMORY CAN BE WRITTEN AND READ. 

ALSO FIND ERROR FREE BLOCK OF MEMORY FOR FUTURE TESTS. 
REFRESH TIMING | 

TEST TO SEE IF MEMORY CAN BE REFRESHED. 


ADDRESS COUNTER 


TEST THE ADDRESS COUNTER FOR ABILITY TO COUNT THROUGH ALL 
POSSIBLE MEMORY ADDRESSES. 


ARRAY MODULE SELECTION 

TEST FOR UNIQUE ARRAY MODULE SELECTION 
SEQUENCER EXISTENCE TEST 

TEST TO SEE IF BASIC SEQUENCER TIMING EXISTS. 
SYNC DATA BUS CONTINUITY/WRITE PATH 


arvine mats DATA TE PATH FOR CONTINUITY BY READ- 
ING ‘a TING NO TERO'S 


SYNC DATA BUS CONTINUITY/READ PATH 
SYNCHRONOUS DATA oapsig PATH FOR CONTINUITY BY READING 
URITING ONE"S AND 


RAM-BUS ADDRESS ocr TE PATH 


TEST ABILITY OF ADDRESS COUNTERS TO LOAD/UNLOAD 
THE SKIP DURING URITE FUNCTIONS. 


RAM BUS ADRS COUNTER/READ PATH 


TEST ABILITY OF ADRS COUNTERS TO LOAD/UNLOAD THE SKIP 
RAM DURING READ FUNCTIONS. 


SYNC DATA BUS BIT UNIQUENESS/WRITE PATH 


SHIFTING PATTERNS. OF ONE*S AWD ZERO'S TO THE ML 


SYNC DAT BUS BIT UNIQUENESS/READ PATH 
TEST SYNCHRONOUS DATA BUS READ PATH FOR DATA BIT UNIQUENESS 




















- BY WRITING 





SEQ 0019 


ere ee 










CZMLADO ML-11 
USER DOCUMENTA 


H 
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BY WRITING SHIFTING PATTERNS OF ONES AND ZEROES TO THE 
TST40. ARRAY ADDRESS MUX 

TEST FOR UNIQUE ROW AND COLUMN ADDRESSING 
TST41. NIGBLE OFFSET 


TEST NIGBBLE OFFSET COUNTERS 
SHIFTED ON DETECTION OF BAD 


TST42. CS1 FUNCTION ABORT 
SEE IF A CLASS ‘B* ERROR ABORTS A FUNCTION WHILE IN PROGRESS. 


SEE IF AC *A® ERROR IS DETECTED BUT FUNCTION IS ALLOWED 
TO COMPLETE. 


TST43. LAST BLOCK INDICATOR 


TEST THE Last OCK INDICATOR B 
LAST AND SETTING AND CLRING AT 


TST44. INVALID ADDRESS TEST 
FOR ALL ILLEGAL DSA ADDRESSES READ THE IAE BIT SET. 
TST45. ADDRESS OVERFLOW 
TEST FOR AOE ON TRANSFERS WHICH EXTEND BEYOND THE LAST BLOCK. 
TST46. SYNC BUS PARITY 
TEST FOR BAD PARITY DETECTION AND GOOD PARITY GENERATION. 
TST47. WRITE READ MEMORY ARRAY (M=BUS BLOCK MODE) 
WRITE READ MEMORY VIA M-BUS BLOCK WITH MINIMUM OVERHEAD 






TO T TO 14 NIBBLE DATA TO BE 
NIBBLES. 













ir FOR NOT SETTING BELOW THE 
WE LAST BLOCK 





TST48. TEST THE CRC DATA BUS BETWEEN THE CRC 
GENERATORS AND THE CRC/RBUS DATA 
MUX FOR CONTINUITY AND BIT UNIQUENESS 


TST49. TEST CRC CODES GENERATED FOR ONE CRC 
GROUP (52 UNIQUE NIBBLES) 
FOR ONE 
" 





TST50. TEST CRC CODES GENERATED 


CRC GROUP (15 UNIBUS WORD 











TST5S1. 


TEST SYNDRONE DECODE AND -_— 
I 


CORRECTION TO DECODE AND 
AND MULTIPLE B 
CHANNEL E Ss 


DETECT BUT 
£ CHANNEL 


eed 








TSTS2. 





ee see tees —— 
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TSTS3. TEST SYNDRONE DECODE TO DETECT BUT NOT 
Bo AY UNCORRECTABLE MULTIPLE CHANNEL 


GLE BIT CHANNEL 


TEST SYNDRONE GENERATION, SYNDRONE DECODE 
AND ERROR CORRECTION FOR MULTIPLE BI 
CHANNEL ERRORS 


TEST THE ECC ERROR REGISTER FOR 
CLEARING AND LATCHING OF ar ERROR 
INFORMATION ON DETECTION OF ECC ERRORS 


TST57. TEST THE ECC_ERROR LOCATION REGISTER FOR 
ini + BIT UNI SS. CLEARING AND 














TEST SYNDRONE RATION ; 


TST54. . 
AND ERROR CORRECTION FOR S$ 
ERRORS 





TST55. 








TST56. 









TST58. VIA ECC_DM AND ECC_DIS TEST Ha ECH 
BIT FOR SETTING AND NOT SETTI 


TST59. VIA ECC_EN, ECC_DM AND ECC_DI 
THE DCK"BIT FORSETTING AND NOT 


TST60. PROM DATA TEST 
VERIFY THAT CHECK SUM VALUES FOR ALL PROM LOCATIONS ARE CORRECT. 
TST61. BATTERY BACK-UP TEST *MANUAL yy ION TEST* 


TEST THE DRIVE BATTERY BACK-UP POWER FAILS AND ALSO 
TEST VV BIT, ECC INIT. 





TEST 
SETTING 





a ——— 


SE@ 0021 


' 
} 
7 Ce 








J 
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PROGRAM HEADER AND TABLES SEQ 0022 
] .SBTTL PROGRAM HEADER AND TABLES 
5 000000 .ENABL ABS, AMA 
002000 . 2000 
39 002000 BGNMOD 
41 s++ 
é THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
4s ; THE DIAGNOSTIC PROGRAM AND WE SUPERVISOR 
45 wis 
48 002000 POINTER ALL 
47 | 
— HEADER CZMLA,D,0,1800..0 
78 NAMES OF DEVICES SUPPORTED BY THIS PROGRAM 
80 002122 | : DEVTYP <ML-11> 


TEST DESCRIPTION 
002130 DESCRIPT <ML-11 LOGIC TEST> 


T OBAL ERROR T CINF TION 
USED IN A CALL TO THE MACRO ‘ERROR**) 


FRRASLESRLKALAT 












15 
138 veeees 3 e WORD 
136 Bopebe —— 
169 MD000C - “WORD 
se 
DISPATCH TABLE C NS THE STARTING ADDRES OF EACH TEST. 
IS USED BY THE SUPERV VISOR TO DISPATCH TO EACH TEST. 
1 
002162 DISPATCH 61 
ig ++ 
11 : THE DEFAULT HARDWAR HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
HE : TE cpenrieat'1o He SiaieTine OF He abobage PTs fa 
116 ; AND IS USED AS A ST ERPLATE’” Fon BUILDING THE PeTABLES” 
118 : 





CZMLADO ML-11 LOGIC TEST 
PROGRAM HEADER AND TABLES 


19 002356 


L 


002376 





1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


TS 


eh kk as kt ed a at st 
RALAVLSSLSSE 
S 
3 


R 
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DFPTBL 


176400 


2 


;RH ADDRESS 

RH TYPE 

RH VECTOR tye a 
NUMBER 

a ati 
IS PARITY DISABLED, 





F OPTION ALITA, 
H TION MLIIA, 1=16K, 0=64K 
1=YES, 


0=NO 


“THE DEFAULT SOFTWARE P-TABLE CONTAINS VARIOUS DATA USED BY THE 
ONAL _PARAME 


TERS. THESE PARAMETERS SET 
4 = ASSEMBLY TIME AND BAY BE VARIED BY THE OPERATOR AT RUN 
BGNSW SFPTBL 
WORD 0 
-WORD 1 
-WORD 0 
-WORD 1 
-WORD 0 





SEQ 0023 


2 
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PROGRAM HE TABLES 


ADER AND SEQ 0024 
318 
1 


——s 










THE HARDWARE PARAMETER Seer ease ¢ TION CONTAINS MACROS 
; THAT ARE USED BY THE eres O BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCT! BUT ARE 
: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
¢ MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 








2 
s 
RO 































122 110 040 ~ASCIZ /RH CONTROLER BASE REGISTER ADDRESS ?/ 
56 122 110 040 : .ASCIZ /RH CONTROL TYPE OR 11° ? 
4 12 110 040 : .ASCIZ /RH CON R VECTOR ADDRESS 
116 125 115 MSGH4: .ASCI R OF ARRAY MODULES 
ou Oe ee 2 ee es 
003052 111 158 040 MSGH7: “AStTS ITY DI 
EVEN 
34+ . 
3 THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
¢ MACROS ARE HDT EXECH BUT ARE 
: INTERPRETED BY 3 THE 
; MACROS ALLOW THE RVISOR TO ESTABLISH COMMUNICATIONS 


WITH THE OPERATOR. 


g 
8 


3 


SISAL SS AR ORES O SOE Ae ee SRNR 
S ss 
SSG eee 
So oOo Ww PY 
z 
Es 


—" 


seed mad and eh red 
VERS 





S 
g 


2 
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PROGRAM HEADER AND TABLES 











1 12 111 RAB ie i 2/ 
1 1¢¢ 101 / Ya 2/ 
1 116 101 /ENABL E REGISTER 2/ 
105 1 111 / NAL °/ 
105 116 101 Agee MANUAL AFTER OME ‘piss TESTS ?/ 
i? ++ 
le : THIS TABLE IS USED BY THE RUNTIME SERVICES 
: : TO PROTECT THE LOAD MEDIA. 
15 F 
9 recanted 
18 177777 ~) sOFFSET INTO P-T 
19 177777 -1 SOFFSET INTO P=T 
177777 -1 [OFFSET INTO P-TABL 
ENDPROT 
SPATCH:: 
' 20 
ENDMOD 








ee 


N 2 
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BLSSH 
6 ;ML3AD 
ys 
8 
8 : 
ig : 5 
14; 
15 ; 14 
fo 8 
i 
: i307 
1: 1206 
; 150 
$ 5 1504 
8 
004646 000207 


eS 
oO 
N 


SEQ 0026 






35 


Sr HES SAUER TR, 


MODULE MLSAD = 
BEGIN 


ZSBITL “REPORT CODE SECTION’ 
REQUIRE "BLSMAC.REQ’; 
ic 


i THE REPORT CODING SECTION CONTAINS THE 
_ PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 





-SBTTL LRPT REPORT CODE SECTION 
LRPT: ARTS PC : 1495 


Routine Size: 1 word 
Maximum stack depth per invocation: 0 words 


-SBTTL LSRPT REPORT CODE SECTION 
177772 LSRPT:: 15k Taal | 


RTS PC 


: Routine Size: 4 words 
3; Maximum stack depth per invocation: 0 words 


B 


: 


a 
v 
~_ 
a 
oF 
= 


= 
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CODE SECTION SEQ 0027 


5 










Se PDT ERD Pa 


WILL ESPON A DODU" FOR THOSE. TH Don At ed 





RANASSELF: 


SSFASSELAT IVS! 


~ 
wa 
ee ed eed ed ceed eed ened eed eed eed eed 


-SBTTL LATO REPORT CODE SECTION 
LAUTO: RTS PC my ofl 1504 


: Routine Size: 1 wo rd 
: Maximum stack depth per invocation: 0 words 


1 

1 -SBTTL LSAUTO REPORT C T 

Lh Doseee g 4 of 177772 LSAUTO: : JSR Pe. LAUTO. —— ; 1514 
i 000207 R 1S pC 

: s Routine Size: 


words 
: Maximum stack dooth per invocation: 0 words 


—- 
= ] 


3 
8 


3 


kd ed el ed ee ce ae lh eld el cel eel ad ad ee 


no inn 
Foours 


Ww 
Ww 


eed eed eed eed ceed ed ceed end eed cd ced 





=NOUSWN—OOo0 we 






3 
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REPORT CODE SECTION SEQ 0028 | 
sML3AD “Mar-1982 11:35:31 TOPS-20 Bliss-16 V2(212) 
; REPORT CODE SECTION me ats 14:33:80 em yA -BLI.1 (1) 
: 1218 1+ 
3 1318 : THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
5 1320 TO NO LONGER BE TESTED. 
: 1521 
3 1356 BGNDU; 
- 15 RETURN; 
5 1524 ENDDU; | 
-SBTTL LDU REPORT CODE SECTION 
004672 000207 LDU: RTS PC $ 1515 
: Routine Size: 1 word 
: Maximum stack depth per invocation: 0 words 
-SBTTL LSDU REPORT CODE SECTION 
74 0064767 177772 LSDU:: JSR cg LDU ; 1523 
oN 104453 TRAP 5 
000207 RTS PC 
3; Routine Size: 4 words 
; Maximum stack depth per invocation: 0 words 
; 1358 1 
; 1527 | THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
; 13 8 . .. ee ee CONJUNCTION WITH THE ADDING OF A UNIT BACK 


SSRVETRSSNS 


3 
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LSDU REPORT CODE SECTION SEQ 0029 


‘oo REPORT CODE SECTION 5 “hart 11333: 3 PA: <NEALESAL SAD Dali: 4) 


ad ed mod 
ee 


kd ed eed ed ed eed od 
SSSRRNIINS 
~ 
R 
S ed eed eed ed ed 
ps UU 
~ 





-SBTTL LAU REPORT CODE SECTION 
LAU: RTS PC : 1524 


: Rout ine Size: word 
: Maximum stack att per invocation: 0 words 


ed ed ed eed 


S38 


-SBTTL LSAU REPORT CODE SECTION 
SR PC LAU 


Operis 14083 177772 LSAU:: 7. 55° 
714 309 RTS PC 


; Routine Size: 4 wo 
1336 END 
15 
15 ELUDOM 


1533 


rds 
: Maximum stack depth per invocation: 0 words 


ike eee 
w CWONA—O 


wm 
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ML3AD 
$ REPORT CODE SECTION 


63°5 ¢ 0 data words 





$3-mar=1 


SEQ 0030 


11:32:30 pase 


































F 3 
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SEQ 0031 | 
; r=1982 16:23 TOPS=20 Bliss-16 ¥2(212) 
, : r-19 16:57:03 PA:<NEALE>ML4AD.BL1.4 (1) 
16 : MODULE ML4SAD 
11: ' 
1g : i PRETTY BLF COMMANDS 
1 : ' <BLF /LOWERCASE_KEY> 
16 : i REQUIRE 
7; ' 
18 : 
3 : ZSBITL "DECLARATION SECTION’ 
: require "BLSMAC.REQ’: ‘BLISS INTERFACE MODULE 
: 1 ' 
: 5 | CONSTANT LITERALS 
: 
: 15 ‘DATA 
; 1510 iDATA 
: 1511 DATA 
1: 131¢ DATA 
: 151 iN OF BLOCKS IN GLOBAL STORAGE ‘ML-REG’ 
: 1314 'FIELD S1Z FOR FIELD DECLARATIONS "WORD MAP’ 
5: 1316 
: 1316 'NOOP FUNCTION 
; 1519 ‘DRIVE ae FUNCT ION 
: 15 i SE FUNCTION 
40; 1521 ! TION 
41 : 15 ITE CK FUNCTION 
*$ $ 15 'WRI TION 
43 : 13 iREAD FUNCTI 
4 i 
eg ; F i DELAY ARGUMENTS ee 
° = 
$i HER Mee, 1a eee iS sewn 
é = 
: 7 one~pee = ad one ae 
1 ; 13 = 10; ! LL SEC DELAY 
; 1534 ! 
g { FIELD DECLARATIONS 
H mm 
a8 : 13 ; WORD _MAP = 'MAPS GLOBAL STORAGE "ML_REG' INTO REGISTER PERSONALITIES 
PY se 
60 : 1344 REGISTER_ADD = (0, 0, 16. 0). ‘REGISTERS ADDRESS 





ee ee 





G | 
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LSAU REPORT CODE SECTION SEQ 0032 | 




























: fa 1982 16:23: TOPS- Liss-16 V2(212) 
es — DECLARATION SECTION 93-Mar-19 18:53:08 Pree Bileente veg (1) 
: 1 FORCE_HI - 0. 16, 0). ‘REGISTERS FORCED HI BITS 
i HS once S BAe 18: IAgGISTENS FORCED 1.0 Ts 
é3 ; 1346 | !MAPS OWN STORAGE NIB_SAVE INTO TEN FOUR BIT NIBBLES 
7 1349 = £0. 8: 4; 69: | BITS <4:7> 
ie: 1550 = £0, 8, 4 1N Bits :11> 
74 : 133) "3 = £0, 5, 4, 03. inl TS Di 15> 
75 : 1338 nl8-4 = (1, 0. 4, 0), int TS <16:1 
76 Ps 1 5 = 1, e 4, ° INI TS :25> 
7? : 1554 $= fi. 8, 4 ind : TS <26:27> 
Big 5 a UBS § BITS SSB 
° = : $ 
80 : 1389 $. #5, $, 05 iN] E 3 TS <36: 
81 ;: 1338 tes, 
aS —_ "“a* 
8 : 1561 £05 = £0. 0. 6. 03 
85 ;: 1366 coO.5 = (0, 
86 : 1 CRT_DATA = (0, 13, 1. 03. 
87 : 1564 SGL_DATA = £0, 14, 1, 03, 
88 e 1565 UNC_DATA = e 15 1, e 
89 : 1366 eee (0, : A: 03, 
91 : 1568 “5 = [1. 6. 6. 03. 
: 1569 E tA = Ci, i2, 1, 02. 
35 Ps 1570 HY = (2, - 6, 6) 
Fe. 3 137) tes; 
9 : 1378 tin (REGISTER DUMP ON ERROR FLAG 
a Pe eg Ee thes nu 
100 : 15 PRSN : volat : ‘PRINT SERIAL FLAG 
101 : 1328 ERRTHR : wlettio: 'ENABLE ERROR THRESHOLD FLAG 
108 : 1580 !<BLF/PAGE> 


ie 








H 
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1 r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
: ; DECLARATION SECTION 9-Mar-1 18:53:08 PA: <NEALE>ML4AD.BLI.4 (2) 
1 ° 1581 ! 

i 3 1 ' OWN STORAGE 

110 ; 1 ! 

111 ;: 15 

16 : 1585 own 

Wz ; i ee | ek See Pete ee eee eronage LOCATION TO SAVE NIBBLE DATA READ DURING DIAG MODE 
115 : 1 HW OR TBL : vector £127] volatile, ‘STORES HARDWARE ORED PROM DATA DURING PROM OR FUNC TEST 
118 3 1 PTEL_Prr : volatil $ P-TABLE POINTER 

117 : 1 oP NOM ARR : vol tile, i R OF ARRAY INPUTTED 

118 : 1591 ARR_INC : volatile, 'ARRAY SELECTION INCREMENT VALUE 

119 : 1 36 6005 : volar le, ! BL ADRS 

120 ;: 159 : volat te. 'PARITY DISABLE F 

121 ;: 1594 CHIP_SIZ : vere le, ' RAR 

1 ¢ $ 1595 : volatile, ! 

123 ; 1336 volat : ! 

124: 159 : volat . ! 

125 ; 138 vector petettie ! F 

126 ;: 15 : vector (10, b 7 volatile, ' 

127 ;: 1600 vector (198, » € yotar le, ! BYTE LOCATIONS 

128 ; 1601 : bit Sor C volatile, : STORAGE LOCATION DURING DIAG MODES 
129 ;: iene : vo af le, : COUNT FOR 16K OR 64K XFERS | 
130 ; 160 : volatile, ! TROBE INCREMENT 

131 ; 1604 WT_ : volatile, ! WRITE DATA DURING REG READ WRITE TEST 

5 ; 1605 RD DATA : volatile ! DATA DURING REG READ WRITE TEST 
133: 1606 DRIVE TYPE : volatile. i STORAGE LOCATION 

i : 160 LST_DOT_REG : veteti e, ! 

135 ;: 1608 REG_INIT_FLG : initial (0) volatile, : 

13 : 1609 A_CAL : Volatile, 

137 ; 1610 B CAL : volatile, ’ 

138 ; 1611 P_CAL : volatile, : 

139 ; 1o1¢ A_GEN : volatile, : 

140 ;: 161 8 GEN : volatile, ’ 

141 ; 1614 P_GEN : volatile, : 

145 : 1615 P_CNT : volatile, : 

143 ;: 1616 LIMIT : volatile ! 

144 : 161 e DROP_CNT : volatile, 

ys ; 1619 '<BLF/NOFORMAT> 

gi 

149 ; 1 ‘ 

150 ; 1 

151 ; 1624 

13 : 1625 

i] 

13 : CO.FORCE_HI] = %0°004000°,  ‘'MLCS? 

157: 16 -FORCE_LO] = %0°173701', 

138 Z 1 1 EO: DONT CARE? = ee 6 









C 
LSAU REPORT CODE SECTION SEQ 0034 


sML4AD r-1982 1 TOPS-20 Bliss-16 V2(212) 
; DECLARATION SECTION fae it 18:57:98 PA: <NEAL >MLGAD.BLI.& (2) 






ed coh eed 
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3 | 
CZMLADO ML-11 LOGI TEST MACRO M1113 30-MAR-82 11:18 PAGE d, 











1 /FORCE.LO] = =_-$0'25077", 

eS, Ba. 

fs C6.FORCE.L0J] = %0°014620", '!MLER 
1 C7,DONT_CARE] = %0°177400', ‘!MLAS 

fe ig a = %0°100000", ‘MLPA 
1644 EiOcbont- taney = fo't?reoo, = “AM 







11.FORCE_HI] = %0'000110', !MLOT 
Hi-FOREEDLO], = Bode edes: 


SERRE 


ot ed ed ed ad ld ed eed eed eet eed ed eed 
=“SSBNOOS 











3 1 
: 1 
Ps 
3 1631 CIS.FORCE_LOJ] = %0°140300",  ‘MLE1 
: : 1636 C14,FORCE_LO] = %0°100300°,  ‘MLE2 
185 : 1654 17,FORCE_LO]. = %0°010000°, ‘mL 
186 ; 1655 ay DONT J =z ay hs 438 imtes2 
} : 1636 JT volatile, 
+4 : 1038 
191 aap ap ah vector S6s.tyee) i STRUCTUR a ORE PRECALCULATED 
192 ; 1661 0] = %b°000001', ICRC R VALUES FOR CRC CODE 
198 : 1666 1 . zP x m 'GENERATION 
195 ; 1664 § = z 0" , 
138 é 1665 4J = 10000° , 
197 ;: 1o08 5] = 2b°100000°, 
Hb : 166 = 001 . 
1 e 1o98 = Jt ° 
; - ° 
ae a) = Boone 
: 1671 10] = 90°, 
: 1er¢ 11j = i. 
: 16 \¢ = y . 
: 1674 13jJ = 91070°, 
Py 1675 14] = 0°, 
: 1o76 15] = 0°, 
$ 16 16 = ri 
: 1o78 17j = & 
0; 16 1g = 8 
11; 1 19] = a 
16 : 1681 20] = wf 
13; 1 ij = a 
14 ;: 1 § = ie 
15 ; 1 = . 
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bt | EE EE EEE KKK KEKE eee 
~d 
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Roz QRR RRR 2 ARERR AR ARR RRR || SSSSE 
z : Spm Oe Oye 8 yee gem 
ee le 2 le ee $y 42 43 2 60 
5 aaa mand; Seeee 
Y oce Ot , 222s 
wy Radet trpetel pow ee ee eo os -_ 
S Ce ee PVE) SF FP FF PP SS 
= a 
Sh ‘ 
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3 8 8 
oA 
[=] meme eee —=emee 
EE EE EE REE KKK KE Keer Kee 
z 
*e*s SFG 66 Fe Fe eo te te i tee ted te ted te eh ed el a a nt *S SS Fe Fe Fe Fe Fe Fe FG Fe Fe FE FR Fe te te te te ®e a *e *@ —@ ee 
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BONN TeSSsss 


ed ed cd ced ed ceed wed enc 
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Rancsseseee 


od ceed ceed ad eed coed ed eed ed end ed eed 
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md) cod end eed cca 
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; 
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ST MACRO M1113 30-MAR-82 11:18 PAGE be . 


DECLARATION SECTION 
5 

EQUALS: 

i MACRO DEFINITIONS 


mac ro 
; REGISTER NAMES: 





MLCS1 = 
-ML REG CO,REGISTER_ADDI3, 
.ML_REG [1,REGISTER_ADDJ2, 
-MLLREG [2,REGISTER_ADDIZ, 
.ML_REG (3,REGISTER_ADDJ3, 
.ML_REG [4,REGISTER_ADD2, 

ALDS = 
-ML REG [5.REGISTER_ADDJE, 
-ML REG [6,REGISTER_ADDI2, 
.ML_REG [7,REGISTER_ADDI2, 

ALLA = 
.ML_REG (8,REGISTER_ADD2, 

ALPA = 
-ML REG [B,REGISTER_ADDI3, 
-ML REG C9,REGISTER_ADDJE, 
-ML_REG [10,REGISTER_ADDJ2, 

ALDT = 
-ML REG [11,REGISTER_ADDIZ, 
-MLLREG £12,REGISTER_ADDIZ, 
-ML REG [13,REGISTER_ADDIZ, 
-ML REG [14,REGISTER_ADDIE, 
-ML REG [15,REGISTER_ADDIE, 
-ML REG [16,REGISTER_ADD23, 
»ML_REG [17,REGISTER_ADDI2, 

ALEL = 
-MLLREG [18,REGISTER_ADDIZ, 
-ML_REG [19,REGISTER_ADDJZ, 









S$-nar-1988 16:91:08  ParenERLESMLEAD BLT a ¢3) 


‘CONTROL AND STATUS REGISTER 1 
‘WORD COUNT REGISTER 

‘UNIBUS ADDRESS REGISTER 
‘DESIRED ADDRESS REGISTER 
‘CONTROL AND STATUS REGISTER 2 
‘DRIVE STATUS REGISTER 
‘ERROR REGISTER 

‘ATTENTION SUMMARY REGISTER 
!LOOK AHEAD REGISTER 

‘PROM ADDRESS REGISTER 

!DATA BUFFER REGISTER 
‘MAINTENANCE REGISTER 

‘DRIVE TYPE REGISTER 

‘SERIAL NUMBER REGISTER 

‘ECC CRC WORD REGISTER 1 
‘ECC CRC WORD REGISTER 2 
‘DATA DIAGNOSTIC REGISTER 1 
!DATA DIAGNOSTIC REGISTER 2 
‘ECC ERROR REGISTER 

‘ECC ERROR LCOATION REGISTER 
!PROM DATA REGISTER 


ee 
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LSAU REPORT CODE SECTION SEQ 0038 


3sMLGAD <p fer=13 16:23: TOPS-20 Bliss-16 V2(212) 
1: DECLARATION SECTION 9-Mar-19 18:57:03 PA:<NEALEOML4AD.BL1.4 (3) 










MLBAE = 
ML REG (20.REGISTER_ADDIZ, 'BUS ADDRESS EXTENSION REGISTER 
= 
,-ML_REG [21,REGISTER_ADDIZ, ‘CONTROL AND STATUS REGISTER 3 
: BIT ASSIGNMENTS: 


ee ed ced ed ceed eed eed eed eed eed ee eed eed eed 


Bau 





Wie WN 





SC = 
(MLCS1)<15,1>2%, 'MLCS1 BIT ASSIGNMENTS 
= 
(MLCS1)<14,1>2%, 
= 
(MLCS1)<13,1>%, 
DVA = 
(MLCS1)<11,1>2, 
RDY = 
(MLCS1)<7,1>2, 
IE = 
(MLCS1)<6,1>2, 
GO = 
(MLCS1)<0,1>%, 
= 
(nes) -6>2, 
= 
On Sse) <15,198. 'MLCS2 BIT ASSIGNMENTS 
(MLCS2)<14,1>2, 
PE = 
(MLCS2)<13,1>2, 
NED = 
(MLCS2)<12,1>%, 
= 
(MLCS2)<11,1>2%, 
PGE = 
(MLCS2)<10,1>2, 
MXF = 
(MLCS2)<9,1>2, 
= 
(MLCS2)<8,1>2, 
ORDY = 
(MLCS2)<7,1>2, 
IRDY = 
(C50) <6. 198. 
= 
(MLCS2)<5,1>2%, 
PAT = 
(MLCS2)<4,1>%, 
BAI = 
(MLCS2)<3,1>%, 
(MLCS23<0, 3>%, 
ATIN = 


—O Oc 


ww 








SSGaa rs 


ed ced ed ed ed ed od ed od ed 










ok en ene ened nal eon eed ce eel ed eld een end eed aed eed en ced cent ed ee cee ee ed eee oe ee cen ceed ee cen end end ed eens ee ems eee 
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CZMLADO ML-11 LOGIC 
LSAU REPORT CODE SEC 


sML4AD 


ON SEQ 0039 
Zg-Mar-1982 16:23:04  TOPS-20 Bliss=16 v2(212) 


Nn 3 
re MACRO M1113 30-MAR-82 11:18 PAGE 56 
































4 
: ; DECLARATION SECTION 9-Mar-19 PA:<NEALE>ML4AD.BLI.4 (3) 
439 ;: 1 (MLDS)<15,1>2%, 'MLDS BIT ASSIGNMENTS 

; 41 COMP . = 
441 ; 1 (MLDS)<14,1>2, 

442 ; M 1891 MOL = 
443; 1 4 (MLDS)<12,1>2, 
444 ; M1 L8T = 
445 ; . ! ¢ Onee<10. 198. 

3 = 
429 : 1 (MLDS)<8,1>2, 
rr $ 4 1 DRY = 
449 ; 1 (MLDS)<7,1>2, 
$30 $ M1 vw = 
red ; . : 4 (MLDS) <6,1>%, 

3 = | 
re : 1306 (MLER)<15,1>%, 'MLER BIT ASSIGNMENTS 
454 ; 41 UNS = 
fee : . 130e EP <16. 198. 

b = 
re E 1308 (MLER)<13,1>%, 
$38 ; 44 IAE = 
459 ; 1908 (MLER)<10,1>2%, 
460 ; M 1909 AOE = 
461: 1910 (MLER)<9,1>2, 
46¢ : m 1911 ECH_ERR = 

3 1316 (MLER) <6, 1>%, 

464 ; M 191 AR = 
5: 1914 (MLER)<5,1>2%, 

3 M 1915 CPAR = 
467 ; at (MLER)<3,1>2, 

: M 191 = 

: 1918 (MLER)<2,1>2%, 

470 ;: M 1919 = 
471 ;: 19 (MLER)<1,1>%, 
1% s M1921  #£=xx1LF = 
7: on 1988) he Fp5'2*- 

e = 
475 ; - 4926 (MLMRY<10,1>%, 'MLAR BIT ASSIGNMENTS 
$76 : M 1925 ML NUA_ARR = 
477 ; 1 (MLMRY<11,5>Z, 
pth 5 M1 REF = 
479 ; " 1 (MLAR 2028. 

e PROM = 

3 19 (MLMR)<6,1>%, 

g Mm 19 DIS = 

3 iS (ALMR) <3 ,1>%, 

; M19. T chk = 

: 49 (MLMRY<4,1>2, 

| = 

: m 19 

3 19 
490 ;: m 19 = 
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LSAU REPORT CODE SECTION SEQ 0040 
492 ;ML4AD spfer-13 16:23: TOPS-20 Bliss-16 V2(212) 
438 ; DECLARATION SECTION 9-Mar-1 18:57 308 PA: <NEALESML LAD Bri (3) 
495 ;: (MLMR)<1,1>2, 
49% : ECC_DA = 
497 ;: (MLMRY<0,1>2, 
498 : TYP = 
499 ;: (MLDTY<0,1>2%, 'MLDT BIT ASSIGNMENTS 
. CRC_A = 





‘MLE1 BIT ASSIGNMENTS 








(MLE1)<0,6>2 
PAR Re uh = 

(MLE1) 28,652, 
CRC_B = 





!MLE2 BIT ASSIGNMENTS 






SassaeaTcs 












ML_REGC. index ,FORCE_HIJ2%, 
LO = 


‘READS REGISTERS FORCED LO BITS FROM PERSONALITY TABLE 
1 . index ,FORCE_LOJ%, 


'READS REGISTERS DONT_CARE BITS FROM PERSONALITY TABLE 
ML _REGL. index ,DONT_CAREJ2Z, 
MASK Ze 





MLE 
ML_REGL14 ,DONT_CAREJ2Z, 


‘READS MLE2 DONT CARE MASK EITHER DATA DIAG OR ECC CIE REG 


*940 
He 
136 
et: 
: 1967 
: 1948 
oa 
fey ie 
309 1936  (MLEED<13,1>3, !MLEE BIT ASSIGNMENTS 
Hi onl Sage. 
e road 
ig : 1958 (MLEEY<13, 1>2, 
14 : 1 BIT nie = 
sg: Eastin Ein « 
317 ; 196¢ etsy ar 
31 ; 1964 : MISCELLANEOUS MACRO DEFINITIONS: 
521 : a1 " §N3 
5 ‘ s 1967 (MLSND<12,4>%. 
7 e = 
524 : 369 (MLSN)<8,4>2, 
$ mM 19 SNi = 
296 : - 971 (MLSN)<4,4>2, 
$ = 
: (MLSN)<0,4>2, 
: mn 1908 IS_set = ‘TEST IF BIT IS EQUAL 1 
2 1: 976 eql 1%, ; 
: 8 1S_NOT_SET = 
533 : Mi 978 ‘TEST IF BIT IS EQUAL 0 
; 5: 8 nts 
; ” 'READS REGISTERS FORCED HI BITS FROM PERSONALITY TABLE 
: 4 
‘ fe 
: 
: 4 
; 4 
: M 


ee ed ed ced cad oe ened ead eed rh ceed end cand cand en eon con cmd cond cned oad end ed 


SEEESE 


991 


SEREROS GEER Ee 
“ 
S 


g 


Se 


594 


z232 323 
ed eed nd coed ed eed ond eed 


Sraes SSSaSISEES 


233 


2223 32232233 323232 
eh cad aud ead cond ad axnd eed oh 


SSSSSsos 
WOONOULS Wh 


Ss 





PIE WIN = 





aia 
“fT 










ae 
= 






BSE 





Py 
rt 
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ON SEQ 0041 


TOPS-20 Bliss-16 V2(212 
PA: <NEALE>ML4AD.BLI.4 ( 


B9-har-1988 16:31:08 


at a MASK DATA PATTERN USING REGISTER FORCE LO, HI AND IGNORE B 


) 
DECLARATION SECTION 2) 
WRT_MASK = 
- IGNORE or ((not LO) and (.HI or .TST AD 
CLR_MBUS = 


‘CLEAR MASS BUS RESTORE DRIVE NUMBER 





CLR = ONE; DRV_NUM = .ML DUTE. | 
'<BLF/SYNONYM IS_SET = EOL 
: <BLF /SYNONYM IS_NOT _SET = EQL aq * > 


i DIAGNOSTIC DATA REGISTER MACROS 







RD_LNG_WRD = 
'READ DATA DIAG REGS INTO BIND LOCATIONS 
. 1_TEMP = .MLD1; 
i Stee = Zn, 
TAUNG_ 'LOADS DATA DIAG REG WITH CONTENTS OF SIND TI 
MLD1 , D1 ~TENP: nee 





0 
until .DRY:%, 
ERROR PRINTING THRESHOLD MACROS 





= 
P_CNT = .P_CNT + 1; 


if .P_CNT gtr .LIMIT 
then éxitloop:2; 


=: BIND DECLARATIONS 









RATOR PROMP 


ai owe yd ION TEST ERROR 
"BATTERY 


"POWER FAIL TEST 







ND Test 61 A BACK-UP TEST" 





R FAIL seeeenere'), 
RY BACK-UP nor 









cleseeeeceecs RAGA IMEEM OY TES 
Ege ira lee ety is Sea Benes a 


FUNCTION"), 


ta kee 





uplit (fas ciz°VV BIT NOT SE 
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ON | SEQ 0042 


eososseeseees 
OOo Wises eh 
Bete Se Ge Ge Fe Se Be Ge Ge Se Se Ge Ge Be Ge Se Se Se Se Se Se Se Se Fe Se Se Ge Ge Be Ge Ge Ge Ge Se Be Se Ge Be Se Ss te Be Ge Se Ge Ge Se Ge Ge Ge Be See 


AO 
— mt 


SELEEPERAESE SRA RAR GRRE ARERR EE 


AAA 
RRAMAD 


ae 






3: TOPS-20 Bliss-16 V2(212) 
DECLARATION SECTION iow 18: $3 68 PA: <NEALESML4AD.BL1.4 (3) 
VV_CLEAR = uel it iSeee* ON’) 
re-Dis-£ = = up itt ae R Mt hte BAD pArTeSY BACK-UP"), 
MB DIS PaAAFeRS” POWER FAIL‘ 








POWER Loss” wl TH BAD BATTERY BACK-UP"), 
Prune Box AC CIRCUIT BREAKER ON’), 
5 ee POWER FAIL with GOOD BATTERY BACK-UP") 
Y INITED AFTER POWER FAIL WITH GOOD BATTERY BACK-UP’S, 
Y BACKUP FAILED TO MAINTAIN MEMORY INTEGRITY DURING POWER FAIL"). 









isl UpLit, iat "Wy BIT CL 
cee. ERR = reg (Zasc 2 BAT ERY 


i 
; ERROR DATA MAPPING FORMATS 



























FMT_1 = uplit (Zasc iz* ZAEXPECTED: ZA : ZO6ZNZN') | 
F <1 ut : ggeee 12 neoe DATA ‘ MEAD DATA: TO6xA XOR: ZO6ZNIN‘) 
= uplit (fasciz® », 
= wiit (aascia’ . "BAD NIB DATA: 202%A = NIB POS: 2042NEN") 
= uplit 2° ’ 
= uplit z° ARR MOD 
FMT_9 = uplit . 
FMT_10 = uplit ¢ 2 20>: %B10ZNZN 
PATTI = cette ; ie 
= $ 
FmIn1S = be < it (Zasciz pe 3A = %D2 2NEN 
FMT_14 = uplit ( 2 *) 
FMT_15 = uplit (Zasciz 2D 
FAT_16 = uplit (Zasciz ; BAD DATA: Z06ZNIN 
FAT_17 = uplit (Zasciz *) 
aT 18 = uplit 1 ead ), 
FMT_19 = uplit (Zasciz f 
FAT = uplit (Zasciz ), 
FATo52 = Otte Geeede n~abd 
FMT g = uplit (Zasciz sath Olt: ACONTENTS NEN’) 
Paras = BLE aes ERSTE 
= ‘a’ SN 4 
FMT_26 = wiit (fase ie aeee £D12D12012D12N'), 
ERROR SAGE NG 
ONE = it (Zasc iz, sETETaN 
TWO = weit (lasc{z 
THR_ = prt (Zasciz 
FOR = uplit aa 
FI = uit (Zasci 
SI = uplit (Zasciz 
= uplit cease iz z, 
2 uprit (fase dz ; Ht oy 
= 
= lit Cleeeiet i TETETEN 








SP BP BP Gd Sd Ged BP Sd SP Bd BP Sd HP Sd Ged Sed Gd Sed ed Sed Gad ad Sad Sad het ed hd ed ed ddd dd ed 
bet Sot bl hee BS bP Oo ted 8 09m Oo 8 Com Com Com Cpe Ope gm tom tym Og Spm AEE Oe OyE Com Ope Nye Og Oem Ogee Ope Oye Oem Lg A—E OE C~D Up Ogee O—D Ope Og oym Sew 


sseseegeeSSSS ssssssssssssssssssssssessss 
Pn ieee ee 
Or NVUMTNAOR. OG 
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ELV_FAT = uplit (Zasciz*Z7ZTZTATAZTATATATATATATIN’ ), 


DIAGNOSTIC VOCABULARY 


DECLARATION SECTION 


BSESOSSESBSOK NYS PORE NNALLE SERNA RAREST ISIS 
no em gee ee ge ee gee ee ge SFT FT PTS 


~WeoX SO EF FE ES OF FF FF FF 





$ 
f 


ESSE SS Ss Sinn Cece t tre Tee ete OS RERRE 












ciz’ DELAY) 
T 


} 


FF FF FF Ca Cd Cad et Cer Ned Cad ead Gea ed ad ed Se 


SP GP ed Bt Sad Bad Ged Bd bed Sd ad Sed Sad hed Sad Sad ed hd aed ad ed ed ad ad aed ed dt td 
Om Com OE Com Op oom Oem Om Cem opm oye tem tom tg Ope CEm Ope OEE Op OpE gm opm Ogm Oye oyE C—D Ope og OEM CGE 


Sesseesssessesesesesesesesssss 
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Ses 


DECLARATION SECTION 


SO EE "FF C= FH PS ee Pm 









ssssuesueneceauacgaugescuacses. © sressesensetret 


PERANARARARASSYSSSSSSSLEMLLLELR 


TER 1.5 US"), 











2 aE 
PONCE AM 


ciz*SERIAL #°), 





a ee od 
Ret bP bed Ged Get Bel el Gack had 1H Bw OG Sem Be Oye 


| 


ww" 





FP GE Gee 


oo 
free 
7 
Sales 


NC_1 = uplit (Zasciz’ MEM SIZING’), 


om ou, 


SOLES 





Or DRO wv o - 
PEER RRRRRRRRARRER RENE NS Sa eee ee RER CERRO RR SSeS eee ee 
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DECLARATION SECTION 


s 
we uP 

3 ee Nee St St Neh Sm? eae? Sat See Sat Set Mat Nae 
Ft et at et at ee 





eee 
NNN 
png 
Vw 


* 
Be 
open gee = - 4) 
fad Vu 








22222222 222222 


Wie lhe Hie Wi Wil Rill en Rie Aidhe Cllr Mle: Rite With Bile Mie Mile Ailes Bie ike Alte Addn > om came 


eo 


NICUICUCURUCUR 





nbn bp oe eS 4 


IA OS MNTMNDOR. DAO CUMPINE 
SF 





Nae? Neel oat Na? See Sat Ma Mast Hen! 


endl oud ens! 





Seattttitt ttt ttt tt. 


PN Met Neat a Nt Se at Sead Ned Mee? 


OH WPANSFNOR. OM 
3 Os pe ge re ee ee em me oe 
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CZMLADO ML-11 LOGIC 
(SAU 





DECLARATION SECTION 
INTER = tel Pe DIATE 


Hat a ihe 
pase aN 
" ar ° uplift (1as O12 "DRIV 


: DATA DIAGNOSTIC REGISTER SAVE LOCATIONS 
oS ee 
Bg “TEMP = NIB-SAVE f° 6° 18° 63: 


5 ZSBTTL "ROUTINE DECLARATION SECTION’ 









1 





HW 4 
TEST MACRO M1113 30-MAR-82 11:18 P 
REPORT CODE SECTI saaiees 








suas 18:81:03 
Bue ieoorte %, 


Aloe 
reahais mas Sas TRANSFER"), 





TOPS=- Liss-16 V2(212) 
PAs NEALESP LAD BN TG 23) 


SEQ 0046 


eee — 


—s 


CZMLADO 
L PORT CODE SECT 


r 


~SBRNOUE IIIS 













ML-11 LOGIC i 


sMLGAD 


+4 
' 
5 
-) 
‘ 
1 
7) 
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' 
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7,3 
506 


* a) 


coe ed eb ed ced ce ad wed ed 
CONOUE WMO OC 
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r-1 16:23: 
ROUTINE DECLARATION SECTION $3-mar 1985 18:53303 
oe" wee (STK_PTR, NIB_PTR) : novalue = 
n 


v 
+ 


FUNCT IONAL zeit Mes. 


LOAD STACK I NIBBLE DATA 
Ae ers IA We seri 
“SHEE AHL Ah aa 


TH GOOD N 
FORMAL PARAMETERS: 
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LOAD. STACK ROUTINE DECLARATION SECTION SEQ 0083 
:MLGAD r=1982 16:27:06 TOPS 
: ROUTINE DECLARATION SECTION 3 a at 16:21:03 PA:< 
9$: CLR R= 3 
BIS8 (R2).R3 ss 
mt 
175112 MOV .SAVE+2,R3 
10$: CLR : 2350 
B1S8 (R2).R3 
me 
175074 MOV 8. SAVE+2,.R3 
118: ASR 
ASR 
ASR 
] ASR 
128: GR ff 2354 
; "  - BFSB ss (R2).RB ° 
+ a 
8 175050 io. 6. SAVE+4,.R3 
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LOAD.STACK ROUTINE DECLARATION SECTION SEQ 0084 
911 ;MLGAD 9-Mar-1 16:23: TOPS- Liss-16 V2(212) 
: : ROUTINE DECLARATION SECTION $3-per 1905 18:57:03 PRs MEAL ESI LAD BN (5) 
é : routine DAT_DM_XFER : novalue = 
ats ; 1++ 
| ; ; i FUNCTIONAL DESCRIPTION: 
904 ; APPROPRIATE 
5958 : MASS BUS 
994 : CAN  COMMENCE 
a2 : 
S57 * : 
toa ° i 
3959 ° i 
59 Sr > = 
5933 
935 : 
92 -SBTTL DAT.DM.XFER ROUTINE DECLARATION SECTION 
946 01641 DAT.DM.XFER: 
3 1641 SB s- #10, @ML .REG+1 & : ; 
) 01 nov #10, Be 6 t a 5 
1 ars eee : 2363 









; Routine Size: 13 
; Maximum stack depth per invocation: 0 words 





ee ee - --— - 


CZMLADO “1 1 
DAT .DM.XFER 





504 2 


—_ 


++ 
+4 
» 7% 
298: 
Ros 
++ 
3+ 


FoI 


er ee ee) 
AVislWMv=wOe 





sMLGAD 


RRR 
BUSURUNLETeTaceonseseseeRae[s 


ad 


PORONORONURONoRONoROnoNonononononononononononononunofny 
PERERA RR RRR RRR ERE RRR PPP PPP PP 
wn 





1 LOGIC TEST 
ROUTINE DECLARATION SECTION 








4 7 
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routine STRIPPER (WRD_CNT, NIB_CNT) : novalue = 
begin 


++ 
FUNCTIONAL 
a, 






SCRIPTION: 
R RUNS_IN DATA DIAG MODE AND STR 
A VARIABLE NUMBER OF GOOD N 

BLOCK AND STORES THEM 
STACK FOR SEQUENTIAL ACCESSING 









FORMAL PARAMETERS: 
WRD_CNT 


- incr CNT from 0 to .NIB_CNT do 





TELLS STRIPPER HOW MANY WORDS IN THE GOOD 
BLOCK TO READ OUT 


NIB_CNT 
TELCS STRIPPER HOW MANY NIBBLES TO 
STRIP OUT OF EACH WORD. 


: IMPLICIT INPUTS: 


local 
STK_PTR; 'STACK POINTER 


'CLEAR OUT THE STACK OFFSETS 
STK_OFF C.CNTJ = ZEROES: 






LR_MBUS; 

STK-PTR = -1; 'RESET THE STACK POINTER 

DAT-DM_XFER (); 'SET UP_A DATA XFER AT THE GOOD BLOCK 

MLCS1 = read: 'DO A READ XFER 

DELAY (ONE_US); : ‘ALLOW PROM DATA TO GET INTO THE MLPD REG 

incr CNT from 0 to .WRD_CNT do ‘LOAD THE STACK WITH ALL GOOD NIBBLE DATA 
-MLPD; !GET THE PROM DATA 


PD TEMP = 
DAT_CLK = ONE: 
DELAY (ONE_US); 
RD WRD;: 


{CLOCK OUT THE DATA WORD 
‘READ DATA DIAG REGS INTO NIBBLE SAVE 


incr —- from 0 to .NIB_CNT do ‘STRIP OUT X NUMBER OF NIBBLES 
STK_PTR = .STK_PTR + 1; ‘INCREMENT THE STACK POINTER 
: I al C.NIB_PTR] IS_SET ‘SEE IF THIS A GOOD NIBBLE 


STK_OFF C.NIB_PTR] = (.STK_OFF C.NIB_PTR]) + (.NIB_CNT + 1) 
'THER INCREMENT IT*S STACK OFFSET 


else 
LOAD_STACK (.STK_PTR, .NIB_PTR); ‘ELSE LOAD THE NIGBLE iN THE STACK 


ee —- 


SEQ 0085 


ro} 16:23: TOPS- Liss-16 V2(212) 
ROUTINE DECLARATION SECTION r=1 18.57.08 Hees A LO (6) 





CZMLADO ML~11 LOGIC TEST 
DAT .DM.XFER ROUTINE DEC 


sMILGAD 


ROUTINE DECLARATION SECTION 
end; 


end; 


166142 
000020 


015022 


0 


163274 
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end; 
44 CLR_MBUS; 


LARATION SECTION 


176742 


176724 


176642 






LSDLY 


CLRB 


JSR 
MOV 
BR 
INC 
CMP 
BL 


sanace 
63°"& 






Rosesess 


= 
° 





et 


TEMP 


se3- 
dees 
es 





53Ra 





r-19 
r=-1 


16:81:08 


$- liss-16 V2(212) 
PA: <NEALESAL CAD BL <a (6) 


TOP 





STRIPPER ROUTINE DECLARATION SECTION 


NIB.CNT,* 
CNT 


* (CNT) 
CNT 
CNT ,* 


*, STK.PTR 


* ,SSTMP2 
* ,SSTMP1 


SSTMP 
SSTMP1 


SSTMP2 
CNT 


* ,SSTMP2 
* ,SSTMP1 


rr eeeeeenete eee - 


SEQ 0086 


BP ESOS olSes 


BANOS 


ery 
ed ed ed ed ceed ceed ed eed ced ee coh eed eed 
> 


re 


—s 


ot 
1 
1 
: 
i 
i§ 
14 
F 


a a nd ath cant eed neh ob 


RSS SRS 
mm PRICES 


POS 


’. 


A Po Pe Oe ee 
“29° 4% 
~ a 


rece scot cual rast 
AAA 
. RROD 


amd ceed ak ose ed 
“MIOLHOC 


AAAAAQ 


seaseser ss 





t 

iv 
0: 4 $ 
. 





015022 
015022 


177046 


000022 


io 


MACRO M1113 3O-MAR-82 11:18 PAGE 104" 


TION SECTION 


176430 


176412 


12$: 


3; Routine Size: 
; Maximum stack 





to | 
283s 


3x8 


S35o5% 


fen = Ce ene on .{- B@ 
GamBatess sasecoRTesSes 


22 
6™ 





ROUTINE DECLARATION SECTION 


-REG+170,D1. TEMP 
@ML .REG+ 6-1 
eae REG? oE2. TEMP 


R 
STK.OFF (R2) ,R1 
in 
Ri 


127 words 
depth per invocation: 


; SSTMP 


: SSTMP1 


SSTMP2 


NIB.PTR 
STK.PTR 


; NWIB.PTR,* 


NIB.PTR,* 


*(NIB.PTR) ,* 


*,*(NIB.PTR) 


STK.PTR,* 
NIB.PTR,* 


NIB.PTR 
NIB.PTR,* 


CNT 
CNT .WRD.CNT 





59-me 


r=1 
r-1 


962 | 


6 
6 


a: 


SEQ 0087 


3:04 
1:03 


TOPS 
PA:< 


2428 


2430 
2432 


2434 


5037 
2428 


2421 


2441 


2387 


| 
| 
| 
! 


—_—— 


k 7 
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CLARATION SECTION 








| 

SEQ 0088 | 

sML4AD -1 16:23:04 TOPS | 
: ROUTINE DECLARATION SECTION pot 18; 1:03 PA:<) 





= 
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TARE ¢ CONTAINING PRECALCULATED BIT aide oe 


I 
HE MODULO 2 CALCULATION 












THE 


CZMLADO ML-11 LOGIC TEST 
STRIPPER ROUTINE DECLARATION SECTION 
140 :ML4AD r=1 3: TOPS-20 
14 ; ROUTINE DECLARATION SECTION 9-har 1985 18; $3 03 PA: <NEAL 
168 445 a : novalue = 
148 4ee 
12 “a9 i 
14 649 } FUNCTIONAL DESCRIPTION: 
148 450 : CALCULATE THE CRC CODE FOR THE GOOD BLOCKS 
14 451 | FIRST CRC GROUP (60 NIBBLES) BY STRIPPING 
1 43¢ i OUT GOOD NIBBLES AND MODULO 2 ADDING EACH 
3 4 BITS WEIGHT RESULTING IN A_CAL,B_CAL.P_CAL. 
1 455 | IMPLICIT INPUTS: 
154 436 | P_CAL,A_CAL.B CAL 
155 457 TORAGE LOCATION WHERE CALCULATED 
136 458 i CRC CODES ARE STORED AND EXAMINED FROM 
1 459 | 
qe 
461 
: 
— 


WEIGHTS USED IN T 
ODE 











bitvector [4], 





SAV’ : 


«12, 9): 


= -1; 


iner PLOG from 0 to 5 do 
n 


L = -1; 
NIG. CNT from 0 to 8 do 


STK_PTR = .STK_PTR + 1; 
NIB_SAV = .stack C.STK PIRI; 


incr BIT_TST from 0 to 3 do 
L = .CHANNEL + 1; 





Cc 
if .NIB_SAV C.BIT_TST] IS_SET 
—__, 


ABS = .PLOG + .CHANNEL; 
BLOG = .PLOG + .CHANNEL*2; 


158 : 
159 ; 
160 ; 
181 5 “6s CRC C 
18 : 465 
164 ; 4 local 
163 3 468 STK 
16? : sieo NIB 
: a es: 
170 ; rh STRIPPER 
178 ‘ 474 STK_PTR 
173 ; 475 
198 3 459 
176 : 478 c 
4 : ¢ incr 
173 : 481 

1; 4 
182 ; 4 
’ Z 5 
185 : 4 
186 ; 
188 é 
189 : 491 

: 49 

199 494 
198 : 495 
19 ; 496 


SU RHE 8, 


‘CHANNEL POINTS TO THE BITS IN A WORD 
: STACK POINTER 
‘NIBBLE SAVE LOCATION 
V INDEX INTO REMAINDER TABLE 
‘INDEX INTO REMAINDER TABLE 








Bliss-16 vacate), 
E>ML4 AD .8LI 1.4 


:STRIP OUT ALL 10 NIBBLE FROM 13 ARRAY WORDS 


‘RESET STACK POINTER 

‘PLOG POINTS TO ONE CRC GROUP ‘6 WORDS’ 
‘RESET CHANNEL FOR EACH WORD 

‘READ DATA NIBBLE 0-8 AND CALCULATE CRC 


: INCREMENT THE STACK POINTER 
‘LOAD NIV_SAV WITH A STACK NIBBLE 


‘TEST THE BIT FOR BEING SET 
! CHANNEL POINTS TO THIS BIT 
‘SEE IF THIS BIT IS SET 

IF SET THEN MOD 2 ADD THE REMAINDER 
:CALCULATE THE ALOG 

CALCULATE THE BLOG 


‘REDUCE ALOG UNTIL < 64 






SEQ 0089 


ee 
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STRIPPER ROUTINE DECLARATION SECTION SEQ 0090 | 


Somer 1388 19:43:06 TOPS-20 Bliss-16 Va (ete) 



















; ROUTINE DECLARATION SECTION 9-Mar- PA:<NEALE>ML4AD.BLI.4 (7) 
: "2497 
; 4 while .BLOG 8% ‘REDUCE BLOG UNTIL <64 
r +4 BLOG = Bids ~ 3. 
: 301 P_CAL = (.P_CAL) xor (.REM_TBL C.PLOG)); 
: O¢ A_CAL = (.A_CAL) xor (.REM-TBL [£.ALOGJ): 
: 303 B-CAL = (.8-CAL) xor (.REM-TBL £.8L0G)): 
eUO ; end; 
se : 5 end; 
r: : 3 end; 
212 ; 510 STK_PTR = .STK_PTR + 1; !SKIP OVER THE CRC NIB NT THE STACK 
y : 511 end: 
5214 ; 31¢ 
y: : 51 end; 
¥ -SBTTL CAL TINE DECLARATION SECTION 
5224 017042 165544 CAL.CRC:JSR R1 : 2445 
995 01 12 SUB ey 
226 01 14 MOV #1 : 2473 
1 1 000006 MOV a= : *,STK.PTR 2474 
17074 000004 CLR 4( : 2676 
$ 171 1 000010 1S: MOV Be O¢sP) : 2478 
[339 0171 12 CLR 12¢Sp : 2480 
> 1711 2$: INC 6 SP) : 2482 
¥ 1711 MOV (SP) RS : 2483 
. 71 1 000014 nove STACK(R »,14(SP) : 
[3936 0171 15 C (SP) : 
y. 171 CLR 5 2485 
¥ 171 900010 3$: INC SP) : L 2487 
239 01714 3 MOV RS : BIT.TST,* 2489 
he 17144 ASR 
Y. 171 ASR R 
¥. 171 ASR 
% 171 000014 MOV 
¥ 171 ADD : NIB.SAV,* 
¥. 171 ADD 
¥. 171 MOV 
se 171 MOV : BIT.TST,* 
¥ 171 177770 BIC 
¥ 171 000001 MOV 
- 17176 CLR 
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CZMLADO ML~11 LOGIC TEST 

CAL.CRC ROUTINE DECLARATION SECTION. SEQ 0091 
y sML4AD =1982 16:23:04 TOPS 
F F ROUTINE DECLARATION SECTION ra 985 16:21:03  PA:< 
. 1 1 PC BL$GT2 
f 066076 #16,SP 
f R 
+ 4(SP),R1 : PLOG,ALOG 2492 
s ; 10(SP5 RI : CHANNEL, 
: oi fa eet - 
268 000004 4(SP) RS ; PLOG.* 
265 000077 4$: R1,477 : aLOG,* 2495 
26 000077 #77.R1 ; *,ALOG 2496 
5 55 000077 5$: : BLOG,* 498 
- 000077 3 *,BLOG 2499 
2 7¢ ; 2498 
59 6$: ’ PLOG, * 2501 
f f been ’ ° ° 
ce BS ge 
Soe 015664 3 *(ALOG),* 
oT: 17 
yf 1760e¢ 
z _— 2503 
28 015664 : *(BLOG),* 
++ rete 
; 7$: : BIT.TST 2485 
’ 000003 ; BIT.TST,* 
2S 00001 : NIB.CNT 2480 
Say tees 000010 3; NIB.CNT,* 
598 ; STK.PTR 2510 
"24 4 tS) : PLOG 76 
2 + is >, #5 : PLOG,* 
3 ; #16,SP : 2445 
t) ' PC 
ar 
3 : Rout ine Size: 128 words 
st ; Maximum stack depth per invocation: 17 words 
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CZMLADO ML~11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE Fo9 
CAL.CRC ROUTINE DECLARATION SECTION SEQ 0092 
sML4AD r= 16:23: TOPS 
, : ROUTINE DECLARATION SECTION $o-mer=] 16:37:08 PA:< 
15 
16 


8 
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CAL.CRC ROUTINE DECLARATION SECTION 






















318 :MLGAD 9-Mar-1982 16:23: 
319 : ROUTINE DECLARATION SECTION 9-Mar-19 16:57:03 
321 : 14 routine ERR_CHK_CRC = 
322 : 318 begin ~ ~ 
24 : 219 I++ 
5356 ; 318 ! FUNCTIONAL DESCRIPTION: 
3526 : 519 | "ERROR CHECK CRC’ COMPARES HARDWARE GENERATED CRC 
327 520 | CODES TO SOFTWARE CALCULATED CRC CODE F 
3328 3 , CRC GROUP AND RETURNS A ONE ON DETECTION OF ERRORS 
Rae 338 7 ee ee ee 
+H ; 525 OBAL STORAGE LOCATIONS TED 
3 ; 3 6 : CRC CODES ARE STORED AND ROM 
3335 : 528 P_GEN,A_GEN,B_GEN 
5336 ; $2 i GLOBAL STROAGE LOCATIONS WHERE HARDWARE GENERATED 
3337 : 3 CRC CODES ARE STORED AND EXAMINED F 
5339 : > * 
341: $3 —,. 'VARIABLE FOR FIELD SELECTOR 
3 2 ; 2535 TEMP; iTEMPORARY STORAGE LOCATION . 
3 4 : 2337 POS = -1; ‘RESET THE POS 
3 ; $339 iner STK_PTR from 9 to 59 by 10 do !CONVERT VERTICAL STACK CRC TO HORIZONTAL REPRESENTATION 
$ 343 POS eo en STK PTRI ikeap CRC NIB FROM THE STACK 
549 ; = .stack [.STK_ ; : 
5350 : 348 (P_GEN)<.POS, 1> = -TEMP<O, 1>; 'CONVERT 1ST BIT 
5351 ; 2544 (A_GEN)<.POS, 1> = not . 1, 1>; i seaent BIT 
33¢ ; 345 (B_GEN)<.POS. 1> = not .T » 1d: iCONVERT 3ED BIT 
354; 547 . | 
$3 36 : 74 if (.P_GEN neq .P_CAL) or (.A_GEN neq .A_CAL) or (.8_GEN neq -B_CAL) then return ONE else return ZERO: 
3 3 ; 330 7 !COMPARE GENERATED CRC CODE TO CALCULATED CRC CODE 
a>” ’ 
536: } -SBTTL ERR.CHK.CRC ROUTINE DECLARATIUN SECTION 
367 017 ERR. CHK. CRC: 
368 01744 167 1651 JSR R1,SSAVE3 : 
369 017 12701 1 MOV #-1,R : 
37¢ 1743 1 000011 “ nov #iteR : 
372 017 3 ‘ CLR AL : 
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11 LOGIC TEST MACRO M1113 SO0-MAR-82 11:18 PAGE iT 


















CZMLADO ML~ 
ERR.CHK.CRC ROUTINE DECLARATION SECTION SEQ 0094 
374 :MLGAD r-1982 16:23:04 TOPS 
37 ; ROUTINE DECLARATION SECTION te at 18:59:08 PA:< 
377 017 15034 BISB STACK(R2).R3 : *(STK.PTR), TEMP ‘ 
378 017 15374 MOV GEN, (SP) ; 2543 
379 0174 MOV R1,-(SP) : POS,* 
S380 01747 000001 MOV #1,-(SP) 
381 01 MOV : TEMP,« 
382 017 17777 BIC 
5383 017 164 JSR 
5384 0175 015 MOV ; 2544 
53e 1% MOV : POS,* 
5386 017 000001 MOV 
3387 0175 CLR 
5388 0175 000002 BIT : *, TEMP 
385 1% BEQ 
390 01 INC 
39) OT yee 164326 = 
$393 017544 015372 MOV ; 2545 
$394 0175 MOV : POS,* 
Boe eivaes Busnes 00000 rh 
5397 017 000004 BIT : *, TEMP 
5398 017 BEQ 
. 3399 017 INC 
$40€ 175 3$: COM 
1 0175 1642746 JSR 
12 01757 24 ADD : 2540 
x4 7 iF ADD : *,STK.PTR 2539 
% 017 CMP : STK.PTR,* 
5 01761 BLE 1 : 
4 0¢ ! 761 175554 175544 cH p,GEN.P.CAL fee 2548 
408 17 ¢ 175540 175530 cH A.GEN.A.CAL 
17 175532 175522 cw GEN,B.CAL 
17 000001 4$: MOV #1,R1 
176 BR EB 
178 =: @ Bae 2515 
17656 RTS PC’ ; 2514 





Routine Size: 71 words 
Maximum stack depth per invocation: 14 words 


PDI ed ed ed ced eed wed ced aed eed ond 
VE OOOYRAULS WIC 


—— ee 

















CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE fi2° | 
ERR.CHK.CRC ROUTINE DECLARATION SECTION SEQ 0095 | 
7 :MLGAD 1982 16:23: TOPS=20 BLiss=16 v2(212) 
: ROUTINE DECLARATION SECTION Soomara 1985 1ecstios — BAPS;20, BLise=t6 vaczt2) 
$5 routine FIND_COMP_BIT (BITS_XFERED) = 
a2 i *Puecti PTION: 
; RRR Eye 
5 i ING FOR COMPLIMENTED 
i “A COMPLIMENTED BIT IS BY DEF A ONE 


oes RETURNED IF THE INDEXED BIT IS 
NOT SE 


FORMAL PARAMETERS: 
BITS ig 
SENTS THE i an TESTED 
IN THE wht S THE 
INDEX IN INTO 
CALCULATED 


PALS Wh 3S 






WORD AND BI 
I0_BUF CAN BE 


{IMPLICIT INPUTS: 





NESSES REESE 


——s 





IBIT THAT dS COMPLINERTED GIT IS LOCATED 


WORD IN WHICH THE BIT IS COMPLIMENTED 


Seererael 
NP PSN! 
Food 
a 
fu 
gos 


COMP BIT “BIT. 
BUF_SAV : bitvector (16): 


-BITS_XF /16; : 
ira ite tee a aa oe 
10_BuF C.cé 








cob oes Silo we SAV 


RAB ADAPAAAE 


URURUIa 
e3g30059 3) 









5 
462 585 if .BUF_SAV C.COMP_B1T) sas then return ZERO else return ONE: 
465 ome 'FIND COMPLIMENTED BIT AND RETURN ERROR STATUS 
a -SBTTL FIND.COMP.BIT ROUTINE DECLARATION SECTION 
17 FIND.COMP.BIT: 
6 7 $167 164654 Ish VE2 ‘Se 2552 
17 1 1 12(SP) ,-(SP) : BITS. XFERED,* 2580 
Were gions BodueD Woy 450, -(66) 
4 § 17905 590081 MOV pa : *,COMP.WRD 





——S ae ee - ae ee 


F 
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CLARATION SECTION SEQ 0096 
SMLGAD r=1982 16:23: TOPS 
; ROUTINE DECLARATION SECTION a at 16:57:03 PA:< 
561 1 MOV 16(SP), (SP) : BITS. XFERED,*« 2581 
is 90008 Roy e045) 
: MOV te :* COMP BIT 
mov : COMP.URD,* 2582 
14 000006 MOV : *,BUF .SAV 
B25 C f ) s -_ 583 
nov : COMP.BIT,*« 585 
iinet Ash 
ADD ; BUF .SAY,* 
ADD 
Rov : COMP.BIT,« 
177770 sic F aoe 
000001 it 
i J 
507 0200¢ 000070 ADD 
TST 
S ASAAt 
hy 120 
+ +34 
1 , 000001 1$: oR 
HE 1201 2$: a Ro s 53 
51% 0200 000010 ADD 6.sP : 52 
B13 i RTS PC 
319 


ine Size: 53 
noe ae stack PF ges. invocation: 11 words 


Shlas 


J 


wi 


BESEtEoREO SS 


a 
Wi 


554 
i$ 
5 

339 


1 


LALA LE 
NORE 
“adi 


nee 


te tw tw tw te tw tt 


witty 


=P. NP PS 








{83 






SFuN=S 


SALE 


WN=e 


ats EE ARXS 


. . + . e a o. — . = 
eect cmd ser? cond aah wad ech oh odd an C= 


FW =O OCONVNOULWN—O< 


— : 


++. 
ai 





RCAC 
w CiSRa 


> 


oy. 


5 
. 

53 
63 
5 
563 











ECLARATION SECTION 


ROUTINE DECLARATION SECTION 


routine FORCE_REM (PLOG, CHAN) 
begin 


{FUNCTIONAL DESCRIPTION: 


C_DM AND 
T 


ite 
FORCE PERDICTABL 


FORMAL = 
POINTS TO ONE OF THE SIX WORDS OF 
A CRC GROUP 


CHAN 
Ae ody TO ONE OF 36 CHANNELS IN 
A CRC GROUP 





t _IMPLICI T INPUTS: 


ae El, 
ue. 









ALOG = .PLOG + .CHAN; 
BLOG = .PLOG + .CHAN#2; 


ite a a fh 
ite OO Sf 


ECC_DM = ONE; 


"THE FOLLOWING ASSIGNMENT: 


MLE? = .TMP_E1 


IS EQUIVALENT TO THE FOLLOWING 
TWO ASSINGMENTS: 


PAR_CRC_WRD = 
CRC“A =". REM_TAL 


a od 11h Filme 







hd atEES PSEA 
THE BLISS COMPILER GENERATE 6yYT oa 


MACRO M1115 SO-MAR-82 11:18 PAGE 14° 


S9-mar-1988 16:51:08 


: novalue = 





TOPS-20 
PA:<NEAL 





‘TEMP STORAGE FOR E1 DATA WORD 
il X INTO TBL 

X INTO REM_TBL 
iEALEULA 


ears A a-toe 
‘REDUCE A106 UNTIL < 64 





‘REDUCE B_LOG UNTIL < 64 


‘SET ECC DIAG MODE 





Liss-16 v2( 
ALE>MIL4AD.BLI. 


212) 
4 (1 


0) 


SEQ 0097 


eee 


— 


Re 


w 8 
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CLARATION SECTION SEQ 0098 


ROUTINE DECLARATION SECTION Sonera 1983 18: $3: 83 PA: <NEALESML EAD BLT 710) 


TO ACCESS THE REGISTER. 








Ay +> 
vd yr 





:CLEAR OUT T WORD 
; LOAD cee A WITH Reer Le 
‘LOAD PAR- CRC WRD W Wren Tet 

‘LOAD THE-E1 REGISTER WITH DATA 


‘LOAD CRC_6 WITH REM_TBL 


TEMP 






“ f° 


5 Gp 02 G0 G0 Ge to hee 





SSRIS 


-SBTTL FORCE.REM ROUTINE DECLARATION SECTION 



















5 
4; FORCE .REM: 
604 021 5? 164534 JSR 1, $SAVE4 : Z 
605 0¢ 101 000016 MOV te 3 PLOG,« 617 
606 0. i MOV 3 *,ALOG 
++. 14 ADD ) RO rs CHAN ,,ALOG 
1608 0¢ 14 MOV 1etsP) R : CHAN.* 2618 
10 02 OR 
517 mov OR Ae ; *,BLOG 
af ¥ 000077 1$: che *A : ALOG,* 2620 
a y 000077 SB RO 3 *,ALO0G 
16 F 000077 2$: cr : BLOG,* 2623 
621 000001 175404 3$: B18 $1 am .REG+120 oo i 2626 
626 015 MOVE TBO Sn oR4 : *(ALOG),* Stes 
6. 1 BIC 
B35 oi Bis. : SPB 
1626 015664 MOVE tal (R1) RG , ee 2646 
68 140377 ae a R4 
625 037400 Bic = #37400, he : 5. 1WP.E1 
631 175370 MOV “OAL REGS : TAP.E1,* 

f of MOVB 3 oe : +(BL BGS. $2 





. D> OE 


100856 eines 4 sm ates iG 


BIC 
81C8 
B1S8 
RTS 


: 


ae ne ee oe - ————al 
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TION SECTION 


sMLGAD 
ROUTINE DECLARATION SECTION 


; Routine Size: 55 wor 
3; Maximum stack depth p + invocation: 5 words 





SEQ 0099 


ra1985 16:91:08 


TOPS 
PA:< 


z 





FORCE .REM ROUT 


v 
wa 


i 
_—) 
vende 
baa 





L 
I 


3ML4AD 





~?. 


a 
ae 


ROrOrC 


~~ ~~ 
SSVSSPES TE 


Sac 
y= 


ROUTINE DECLARATION SECTION 


MACRO M1113 3S0-MAR-82 11:18 PAGE 117° 


C TEST 
DECLARATION SECTION 


SATIN NESTS ARREST 2"2, 


ee (SGL, UNC) : novalue = 


+ FUNCTIONAL DESCRIPTION: 
"FORCE ECC ERROR’ 

VIA ECC DIAG MOD 

OR UNCORRECTABLE 

ECC DIAGNOSTIC RE 


iF ORMAL PARAMETERS: 
SGL 


WHEN SET TO A ONE THIS 
ROUTINE WILL FORCE SINGLE BIT ERRORS 







UNC 
ae SET TO A ONE THIS ROUTINE WILL 
FORCE UNCORRECTABLE ECC ERRORS 










{IMPLICIT INPUTS: 
local 
TMP_E1; TEMP STORAGE FOR E1 DATA WORD 
ECC_DM = ONE; 'SET ECC DIAG MODE 
if saat {IF SGL IS TRUE 
begin !THEN FORCE A SINGLE BIT ERROR 
i THE FOLLOWING ASSIGNMENT: 
MLE1 = .TMP_E1 
' I$ EQUIVALENT TO THE FOLLOWING 
! TWO ASSINGMENTS: 
| ERRATA SOBBH77""= HBAS BANE 









i THIS x NECESSARY DUE TO FACT THAT 
Lk BLISS COMPILER GENERATES BYTE INST 
; 10 ACCESS THE GISTER. 


THP_E1 = ZEROES; 
Pere, © = SHE 








MLET 


SEQ 0100 | 


K 
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2S¥ 















21 words 


; Routine Size: 


FORCE .REM ROUTINE DECLARATION SECTION SEQ 0101 
9-Mar-1982 16:23: TOPS-20 Bliss-16 V2(212) 
0g ROUTINE DECLARATION SECTION $5ner 1885 16:57:03 PA:<NEALEDML4AD.BLI.4 (11) 
10; 703 CRC_B = %b*000000': 
711 ;: 704 end 
\¢ : 705 else 
13 : 7 e begin 'ELSE FORCE A UNCORRECTABLE ERROR 
15 : ? . THE FOLLOWING ASSIGNMENT: 
7 : 710 : MLE1 = .TMP_E1 
8 : ar ' 1S EQUIVALENT TO THE FOLLOWING 
720 ; zi3 i TWO ASSINGMENTS: 
75 ‘ : 715 ! PAR_CRC_WRD = %b°171111'; 'LOAD PAR_CRC_WRD WITH REM_TBL 
75 3 716 i CRCTA =78b°171111"; 'LOAD CRCA WITH REM_TBL 
5755 : 718 | THIS Is NECESSARY DUE TO THE FACT THAT 
5726 : 719 |! THE E1 REGISTER IS WORD ORIENTATED AND 
5727 : ' THE BLISS COMPILER GENERATES BYTE INST 
et ; g : i TO ACCESS THE REGISTER. 
731 : ; ‘CLEAR OUT THE TEMP WORD 
732 5 'LOAD CRC_A WITH REM_TBL 
733 ; 7 : 'LOAD PAR“CRC_WRD WITH REM_TBL 
734; 7 'LOAD THEE1 REGISTER WITH DATA 
5736 ; 
mei OB 
2 > 2732 end: 
4c -SBTTL FOR.ECC.ERR ROUTINE DECLARATION SECTION 
48 4 FOR.ECC.ERR: 
49 02 152777 000001 175306 8158 —— Seine 2676 
751 000001 000004 BIT é »4(SP) 3 *,S6L 2678 
its \ 1 000077 Bics 577.R0 ; *,TMP.Et 2699 
756 08 23: BIS 160, : ©. TMP.E1 
2 14 000077 175306 5 A oe SE ; TH. 3 
755 7 ars = : 2651 


oo ee oe Se 


CZMLADO ML-11 LOGIC TE 
FOR.ECC.ERR ROUTINE DE 
65 
772 


8 
MACRO M1113 3O0-MAR-82 11:18 PAGE ‘19 
TION SECTION 


sMLSAD 
3 ROUTINE DECLARATION SECTION 


; Maximum stack depth per invocation: 0 words 


ee ee eee «eee ere — -_ 
—— — 





SEQ 0102 | 
r-1 16:23:04 TOPS | 
r=-1 16:21:03 PA:< | 





nz 


-11 LOGIC 
R 


nan 
5 
° 

m 
o 
ed 
eB 


;MLSAD 


SoS 


Pepe pe be ia 
iA ell SSoa 


AN 


— r+ 


s 


acd 
~ 
°o 
oo 
™ 


SVRSUN 
Su 


5p Go So Go Go 60 Go GO ¢ 


a Pars Car Pn, 
VA} 3 
“Ou wt)Oo wc 





TEST 
ROUTINE DECLARATION SECTION 


MACRO M1113 3O-MAR-82 11:18 PAGE T20° 





5 


9-Mar-19 PA: 


ROUTINE DECLARATION SECTION 
novalue = 


routine FIRST_BLK_XFER : 


'+4 
j Pe DESCRIPTION: 
A etommneee CAL 





LOADS A_MASS_BUS BLOCK XFERR AT 













BLOCK ZERO. 
bagi DIS = ONE; 'DISABLE ERROR CORRECTION 

mn = 15g LEAS In 8 AGBnELS Wey EOaur on 

mLuC = not 255: 'LOAD WORD COUNT REG WITH C OMPLIMERY 2 


-SBTTL FIRST.BLK.XFER ROUT! ; 
FIRST BU HFER: ROUTINE DECLARATION SECTION 






2 175236 #2. AML .REG+120 : 
012022 175122 mov REG+20 : 
177400 175104 Moy ae at +10 ; 


: Routine Size: 12 words 


3 Max mum stack PLA he per invocation: 0 words 


SarOHE SSE Pe auerssatt "2 


SEQ 0103 


eee 






MLADO ML~11 LOGIC TEST 











MACRO M1113 30-MAR-82 11:18 PAGE 21 
RST.BLK.XFER ROUTINE DECLARATION SECTION SEQ 0104 


-19 3: TOPS-20 Bliss-16 V2(212) 
ROUTINE DECLARATION SECTION | fae iad 18; $3 ‘03 PA:<NEALE>ML4AD.BLI.4 (13) 
routine GD_BLK_XFER : novalue = 


ie 
; "FUNCTIONAL DESCRIPTION: 

A REPEATEDLY CALLED SEQUENCE OF 
THE DSA. BUS ADRS AWD woRDee 
COUNT REGISTERS WITH APPROPRIATE 
INFORMATION BEFORE A MASS BUS 
TRANSFERS CAN COMMENCE 


























LOADS A MASS BLOCK XFERR 
T THE GOOD BLOCK FOUND 
ay THE READ WRITE ARRAYS WITH 
PROM DATA TEST 
begin DIS = ONE; ; | ‘DISABLE ERROR CORRECTION 
MLDA DA = - GOOD BLK: 'LOAD DSA REG WITH. THE GOOD BLOCK ADRS 
0 BUF : ‘LOAD BUS ADRS REG WITH IO BUF ADRS 
nLite = a 5: ‘LOAD WORD COUNT REG WITH COMPLIMENT 256 
-SBTTL GD.BLK.XFER ROUTINE DECLARATION SECTION 
GD .BLK.XFER: 
90000 175 «BSB sO 429M -REG* 120 : 2774 
O12003 | 158 i fe Pte ; ofr 
177400 175052 — MOY | ee: 9 ; o777 





3; Routine Size: 
: Maximum stack PoP So invocation: 0 words 


ZMLADO ML-11 TEST MACRO M1113 30-MAR-82 11:18 PAGE ¥22° 
DECLARATION SECTION SEQ 0105 


r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
ROUTINE DECLARATION SECTION r-19 18:57:08 PA:<NEALE>ML4AD.BLI.4 (14) 
routine LAST_BLK_XFER : novalue = 


: 1 FUNCTIONAL DESCRIPTI 
A _REPEATEDL 





a 
r: 
a 

*; 


SSANOUN 








es Fare oe Oa Cae Pore Pore: 


- ee 
- . : 








ONE IDI CORRECTION 

T Bik iLOAD’ DSA REG WITH THE LAST BLOCK ADRS 
'LOAD ADRS REG WITH THE 10 BUF ADRS 
'LOAD WORD COUNT REG WITH COMPLIMENT 256 


E ee 





LAST.BLK.XFER ROUTINE DECLARATION SECTION 
t3 Si Stim RE 


OAL Fart REGS20 





Routine Size: e words 
Maximum stack depth per invocation: 0 words 





— — 


| 9 | 
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LAST.BLK.XFER ROUTINE DECLARATION SECTION SEQ 0106 | 


r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
; ROUTINE DECLARATION SECTION : $o-mer=19 18:37:08 PA:<NEALE>ML4AD.BLI.4 (15) 


: § = (NIB_NUM, NIB_PAT, ERR_FLG) : novalue = 
n 





$+ | 
+ FUNCTIONAL DESCRIPTION: 
COMP, THE CURRENT NIBBLE 
TION IN *NIB_SAVE* WITH THE 





POSI 
CURRENT TEST PATTERN. IF THE 
TWO V. 


ALUES ARE AN 
ERROR FLG IS SET WHICH THE 
CALLER CAN INTERIGATE 


i 
i 

i 

i 

t 

i FORMAL PARAMETERS: 
NIB_NUM 

‘ 

' 

5 

i 






CASE SELECT EXPRESSION TO SELECT THE 
CURRENT NIBBLE TO BE EXAMINED 


NIB_PAT 
CURRENT NIBBLE PATTERN TO BE 
COMPARED 


ed ed ed ceed eed ed eed ed edd ed 
2 OOdNOAOUEWN =O 


AUSWN=—SO 


PUNE WIN 


ERR_FLG 
CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG 

TO ENABLE THE CALLER TO EXAMINE 

THE ERROR STATUS OF THE ROUTINE CALL 


' 

5 

5 

i 

' 

2 

i IMPLICIT INPUTS: 
NIB _SA 
i 

i 

i 

£ 

i 





= 


BLOCK OF 3 WORDS TO STORE 
THE DATA FOUND IN MLD1. MLD2 
AGNOSTIC MODE 










ae 


AND MLE2 AFTER A DI 
READ 


RI NININNNNN 


rietetetetetetettet xtit at at at at at at: 


4) 





: IMPLICIT OUTPUTS: NONE 


ae 


-ERR_FLG = ZERO; 'CLEAR THE ERROR FLAG BACK IN THE CALLING ROUTINE 
cane. aaa from 0 to 9 of ‘SELECT THE NIGBLE TO BE TESTED 


[0] : 
if .NIB_SAVE (NIB_0] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE: 
‘TEST NIBBLE 0 AND SET ERR FLG IF NEQ 


DUE WMS 


{iJ : 
if .NIB_SAVE (NIB_1] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE: 


& ane 


4 
i 
i 
i 
{ 


C2 





s a a x - 

. . . . . . _ . : e : > . . . . 
- . . . e . . . ei* . 

elie e eile . 


SeSSSgssncessssss 
MEUM =—@OCOeNOULWA-O Ww = 


ML~17 L 





sMLGAD 


I 


MLADO 
LAST .BLK.XFER ROUT 


C 
J 


T 
NE 








EST 





9 
MACRO M1115 30-MAR-82 11:18 PAGE 326 


DECLARATION SECTION 


ROUTINE DECLARATION SECTION 


[9] : 


tes; 
end; 





‘TEST NIGBLE 1 AND SET ERR FLG IF NEO 


-NIB_SAVE CNIB_2] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE: 
‘TEST NIBBLE 2 AND SET ERR FLG IF NEQ 


-NIB_SAVE CNIB_3] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 
‘TEST NIBBLE 3 AND SET ERR FLG IF NEQ 


-NIB_SAVE CNIB_4] neq .(NIB_PAT)<O, 4> then .ERR_FLG = ONE; 
'TEST NIBBLE 4 AND SET ERR FLG IF NEQ 


-NIB_SAVE CNIB_5] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE: 
'TEST NIBBLE 5 AND SET ERR FLG IF NEO 


-NIB_SAVE (NIB_6] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 
TEST NIBBLE 6 AND SET ERR FLG IF NEQ 


-NIB_SAVE CNIB_7J neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE: 
'TEST NIBBLE 7 AND SET ERR FLG IF NEQ 


-NIB_SAVE (NIB_8) neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 
'TEST NIBBLE 8 AND SET ERR FLG IF NEQ 


i p_oMie_SAVE [NIB_9) neq » (NIB_PAT)<0, 3> 


eERR_FLG = ONE ‘TEST NIBBLE 9 AND SET ERR FLG IF NEQ 


S5-Aar-1968 16:91:03 PATCNEALESMLAAD Ola ei5> 


SEQ 0107 


| 


9 
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CZMLADO 
LAST.BLK.XFER ROUTINE DECLARATION SECTION SEQ 0108 | 















¥ r=1982 16:23: TOPS=20 Bliss-16 v2(212) 
: ‘a ROUTINE DECLARATION SECTION Sa a SY 18:57 .08 PA:<NEALEDML4AD.BL1.4 (15) 
-SBTTL TST.LNG.WRD ROUTINE DECLARATION SECTION 
02037¢ oe TST.LNG.URD: 
9 02040; 060010 mov 10¢SP), ; ERR.FLG,* $839 
2¢ if 000014 mov —14(SP) RI ; NIB.NUM,* 2861 
Y 4' 
"506 14 020422 ADD 1$(R1) PC 
2 1$: - WORD 1$ 
204. - WORD + 
r 02063 “WORD $3-13 
J dC . - WORD 1$ 
+ r¢ d2C 7 - WORD i 
06( at - WORD 1 
. )2C ' . WORD 1$ 
96 Oe0e4< “MOND 1a 
ML ODL : 2s: MOV 2S s«C12¢ SP) ; NIB.PAT,* 2846 
65 O20 f 9000 BIC bis F706re2 
oe ; 4 1 71 MOV a 
Jt 2¢ " t BIC 
MB 020646 CMP R 
a | 
at Je ; 
44 Nor 1 3$: Oy 1 Py NIB.PAT,* 2852 
172 02050C 197760 BIC 
a Sosans ergs ebes a 
075 09051 ASR 
, 12051 ASR 
are 020: ASR 
178 02052( 177760 - Bic 
é¢ 30 CMP 
5 02053¢ BEQ 
M82 0905332 90001 4S: MOV‘ 13¢SP)_RI : NIB.PAT.* 2858 
+ ae 17770 i if ge | 
BS 020546 Sua CCiR2ttit 
% 02055( 177760 BIC r) 
187 0205 (AP OO 
BO ASNSAr ay : | 
90 02056: 000012 S$: MOV 12(SP), ; NIB.PAT,* 2864 








MACRO M1113 
ECLARATION SECTION 


& 
& 
41 
fe 
44 
41 
41 
41 
a 
a1 
41 
4] 


sMLGAD 


@ 
deog 
o 


eneaee 


wo 
he 
“ 


Gs 
Bonet 
a 


bes 
“ 


@ @ oo 
Mahia eeen «sceptics 


30-MAR-82 11:18 PAGE 126 


ROUTINE DECLARATION SECTION 


#177760,R1 
NIB. SAVE ,R2 









‘d R1 


B. SAVE+2,R2 


4h 


Ss 


— oR2 


$55) 4h 
SHE na 


Hira 








SEQ 0109 


— 


TOPS 


PA:< 


2870 


2876 












= 
=o 


UPUN=ooe F 


Pane 
ed ond wet 
ek ed ed ed ceed ned ee ce ce ceed cee ech ee ened en etd eee ee 








TION SECTION 


MACRO M1113 30-MAR-82 11:18 PAGE $27" 









sML4AD 
3 ROUTINE DECLARATION SECTION 
SWAB 
BIC #177760.R2 
CMP R 
BEQ 1 
AR 1 
11$: MOV 1 rr 
BIC #17 O'R 
MOV NIB cavers 
ASR R 
ASR fe 
ASR i 
SABO 
BIC : rire. R2 
CMP 
BEQ 
igs: MOV gre the) 
13$: RTS PC 
: Routine Size: 158 wo 
: cn bates stack depth p ~ oe 3 words 


: NIB.PAT,* 





SEQ 0110 


| 
16:91:03 Pass 


8 


H 9 
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ST.LNG.WRD ROUTINE DECLARATION SECTION SEQ 0111 
79 :MLGAD r-1982 16:23: TOPS=20 Bliss-16 v2(212) 
ROUTINE DECLARATION SECTION Spar-1985 16:31:08 PA:<NEALE>ML4AD.BLI.4 (16) 
: 2906 routine XOR_LNG_WRD (NIB_NUM, NIB_PAT, RESULT) : novalue = 
: 270 begin 
: Me | feucrogen, sencnsersn 
; 1 } EXCLUSIVE ORS THE CURRENT 
; 1 NIGBLE POSITION IN ‘NIB SAVE* 
; 1 WITH THE CURRENT TEST PATTERN 
; SULTS TO THE 


i 
i 

1 

AND ASSIGNS 
FORMAL PARAMETER RESET. 
i FORMAL PARAMETERS: 
NIB_NUM 
i 

i 

i 

! 









CASE SELECT EXPRESSION TO 
SELECT THE CURRENT NIBBLE TO BE 
EXAMINED 





NIB_PAT 
CURRENT NIBBLE PATTERN TO BE 
XOR*ED 


Py tt 
VVUUE 


RESULT 
CONTAINS THE ADDRESS (PASSED BY REF) 
OF AN OWN STORAGE LOCATION TO 

ENABLE THE CALLER TO EXAMINE THE XOR RESULTS. 


IMPLICIT INPUTS: 
NIB_SAVE 


4! 


t 
+ 








Bete Ge Fe Se Ge Ge Be Ge Ge Ge Se Ge Be Ge Se Be Be Se Ge Be Se Be Be Bee Ge Se Ge Ge Se Se Se Ge Se Ge Se Se Se Se Se @e Ge 
Ww 


4¢08 
4210 BL 
4211 
4 1 MLD2 
1544 
4 i 3 IMPLICIT OUTPUTS: NONE 
1 1 
4 18 3 : case. (NIB_NUM) from 0 to 9 of ‘SELECT THE NIBBLE TO BE XOR°ED 
4221 945 [0] : 
4 06 -RESULT = .NIB_SAVE CNIB_0) xor .NIB_PAT: 
; : ; !XOR NIBBLE 0 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
(1) : | 
595 ( -RESULT = .NIB_SAVE CNIB_1) xor .NIB_PAT; 
: seen !XOR NIGGLE 1 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
09! § [2] : 
4 7 eRESULT = .NIB_SAVE [NIB_2] xor .NIB_PAT; 
3 955 !XOR WIBBLE 2 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
728 
4 (3) : 





eee 
ST MACRO M1113 30-MAR-82 11:18 PAGE 109° 
CLARATION SECTION SEQ 0112 
r-1982 16:23: TOPS-20 Bliss-16 ¥2(212) | 
ROUTINE DECLARATION SECTION ae iE 18:57:98 PA:<NEALEDML4AD.BLI.4 (16) 


-RESULT = .NIB_SAVE CNIB_ 33» xor NIBP PAT: 
E 3 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 





[4] : 
-RESULT = .NIB_SAVE (NIB_4) or .N 
" NIBULE. 4 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


(5) : 
-RESULT = .NIB_SAVE [NIB_5] xor .NIB_P 
'XOR NIBBLE "% AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 





365 [6] : 
97C »RESULT = .NIB_SAVE CNIB_ a yer -NIB_PAT; 
OR NIGBLE 






6 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 





4 
4 


i 
45 
i 
3 
$ 


“RESULT = .NIB_SAVE (NIB_7) ror Ni 





ie "% AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


-RESULT = .NIG_SAVE (NIB_8) xor_ .NIB_PAT; 
'XOR NIGBLE 8 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 





Se Se ee Ge Ge Ge oe Ge Se Be Ge Se Be Se Be te Fe Se we Ge Se Se ee Ge Be Se @e Ge Ge 


[9] : 

95 -RESULT = .NIB_SAVE (NIB_9) xor. .NIB PAT 

298: ee E 9 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
$4 5 

OBE end; 





se @SBTTL XOR.LNG.WRD ROUTINE DECLARATION SECTION 








75 021 MOR.LNG.URD: 
26 1 163476 JSR R1,SSAVE4 : 2906 
107 16 MOV 16(SP) .R1 : NIB.PAT. & 3946 
78 14 MOV (SP) ; RESUL 
1 Roy (SP), : NIB. an * 2942 
81 0211 021120 ADD (RO) .PC 
+ 1 “one “WORD 
4 et WORD 
86 0911 “WORD 
BS 0517 “WORD 
89 0511 “WORD 1$ 





y 
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CZMLADO ML-11 LOGIC TEST | 
XOR.LNG.WRD ROUTINE DECLARATION SECTION SEQ 0113 
:ML4AD 16:23:04 TOPS 
3 ; ROUTINE DECLARATION SECTION 16:57 208 PA:< | 
oe er woe 1a 
4296 0211 172224 2$: MOV N E,(R2) : 2946 | 
4997 O2it 199960 Bic #179760, (ne) 
4599 0511 172212 3$: MOV  -~ NIB. SAVE. R3 : 2950 
4300 0211 ASR R 
£303 O5t18 Ash 
4303 02117¢ ASR eR 
4304 0211 177760 BIC #177760,R3 
4305 021176 MOV R3, (R2) 
4306 921206 BR 
43 961200 172166 43: OV NIB. SAVE RG ; 2954 
4309 10 172160 5$: mov NI » SAVE RG ; 2958 
4311 02121¢ 172154 6$: MOV N #2, (R2) : 2962 
4 le 121 175426 BIC W979 » (RD) 
4313 021 z. : MOV R1,R4 
4314 02123 BIC (R3) RG 
4315 02123¢ BIC R1, (R2) 
4 16 121236 BIS R4,(R 
4317 021236 RTS PC : 2942 
4 18 12124C 172132 8$: MOV NIB. SAVE+2.R4 : 2966 
4319 021 ASR R 
4320 021246 ASR RS : 
4321 02125¢ ASR RG 
6332 02128 ASR RG 
4 dete: BR 14$ 
4 f de1¢5¢ 172114 9$: RO NIB. SAVE+2..Ré : 2970 
4326 021264 172106 10$: OV NIB. SAVE+2,R6 : | 2974 
4327 02127C 11$: ASR 
4328 021 ASR RE 
432% 02127 ASR RG 
4330 02127¢ ASR 
4331 021 50 BR 4 
4332 02130¢ 172072 128: MOV B. SAVE +4 , RG ; 2978 
43% 4 if 177760 14$: BIC 
4336 021 1¢ 172056 15$: MOV NIB. SAVE+4 .R4 : 2982 
4338 09139 ASR 
4335 + 4 ASR 
434C 02133 ASR 
4341 02133. SWAB 
4342 02133 177770 BIC e 
4 4 168: MOV Re AR 
4344 021 1 MOV R1_R 
4 BIC (RO) ,R3 





a: 


St et et ee pt et et be oe oP 
Ss Wm EEF 


K_ 9 
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ML-11 LOGIC TEST MACRO M1113 
-WRD ROUTINE DECLARATION SECTION SEQ 0114 
ZML4AD r-1 16:23: TOPS | 
: ROUTINE DECLARATION SECTION a ad 18:57 .08 PA:< | 
1 1 BIC ag. o(R 
1 1 BIS 
1 RTS ; 2906 


; Routine Size: 89 wo 


: Maximum stack depth | A invocation: 5 words 


A ce 


3 
CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 32 
XOR.LNG.WRD ROUTINE DECLARATION SECTION SEQ 0115 


3 ;ML4AD 9-Mar-1982 16:23:04 TOPS-20 Bliss=-16 V2(212) 
¢ : ROUTINE DECLARATION SECTION $3-her=1983 18:31:03 PA:<NEALE>ML4AD.BL1.4 (17) 











7 routine LD_LNG_WRD (NIB_NUM, NIB_PAT) : novalue = 
begin 
0 1 i FUNCTIONAL DESCRIPTION 
71 2 i LOADS. "NIG SAVE’ WITH UNIQUE 
re 99 NIGBLE PATTERNS PRIOR TO WRITING 
TO MLD1, MLD2 AND ML 
74 DATA DIAGNOSTIC REGISTERS. 


Ww 






i 
i 
i 
‘ 
i FORMAL PARAMETERS: 
NIB 


CASE SELECT EXPRESSION TO SELECT 
THE CURRENT NIBBLE TO BE LOADED 


S333 


NIB_PAT 
CURRENT NIBBLE PATTERN TO BE 
LOADED 





ties INPUTS: 


SSESERS 






& EY EYE EE ES ES EEE EEE EPP PRE RD 
“J 


Sgeceseseeey 


387 : BLOCK OF 3 WORDS TO STORE 

4388 : THE DATA TO BE WRITTEN 

389 : INTO MLD1 MLD2 MLE2 

4390 : 3011 

4391 : 3012 IMPLICIT OUTPUTS: 

4 32 : 1 NIB_SAVE IS LOADED WIH 

4393 : 3014 THE CURRENT NIBBLE PATTERN 

1398 | 3016 

439% : 3017 case .(NIB_NUM) from 0 to 9 of 'SELECT THE NIBBLE LOCATION IN NIB_SAVE TO BE LOADED 

4397 ; 315 set 

C308: 4 } 

4400 ; 3054 NIB_SAVE (NIB_0] = .NIB_PAT: 'LO0AD NIBBLE 0 WITH NIB_PAT 

sabe ; 3024 NIB_SAVE (NIB_1] = .NIB_PAT: !LOAD NIBBLE 1 WITH NIB_PAT 

4405 : J]: 

4406 ; : NIB_SAVE (NIB_2) = .NIB_PAT: 'LOAD NIBBLE 2 WITH NIB_PAT 
: 3]: : 

4409 ; , NIB_SAVE (NIB_3] = .NIB_PAT: 'LOAD NIBBLE 3 WITH NIB_PAT 

4411 : J: : 

sate ; i NIB_SAVE (NI8B_4] = .NIB_PAT: 'LOAD NIBBLE 4 WITH NIB_PAT 

4414 : 5 (5) : ) 

4419 ; NIB_SAVE (NIB_5) = .NIB_PAT: 'LOAD NIBBLE 5 WITH NIB_PAT 

4ei9 : (6] : 
























m9 
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XOR.LNG.WRD ROUTINE DECLARATION SECTION SEQ 0116 
4419 :MLGAD r=1982 16:23: TOPS=20 BLiss-16 v2(212) | 
a 0; ROUTIME DECLARATION SECTION Sone 1 385 18:57:03 PA:<NEALE>ML4AD.BL1.4 (17) | 
44 é ; i NIB_SAVE (NIB_6] = .NIB_PAT: !LOAD NIBBLE 6 WITH NIB_PAT | 
4426 : [7] : 
44 é : ; NIB_SAVE (NIB_7) = .NIB_PAT: 'LOAD NIBBLE 7 WITH NIB_PAT | 
44 : (8) : 
44 : 5 NIB_SAVE CNIB_8] = .NIB_PAT: 'LOAD NIBBLE 8 WITH NIB_PAT 
4430 : (9) : 
44 1: ; Bee NIB_SAVE (NIB_9] = .NIB_PAT 'LOAD NIBBLE 9 WITH NIB_PAT 
Z es; 
4435 ;: 50 
a : 51 end; 
44 -SBTTL LD.LNG.WRD ROUTINE DECLARATION SECTION 
res i 3¢ 101 meee, | R1,-(SP) ; 7 
rae 1 900004 “MOV 4(§P) ,RO : NIB.PAT,* $55; 
Abs ) MOV 6(SP)-R1 : NIB.NUM.* 3017 
4447 021 ASL R1 
1 021374 ADD 1$(R1) ,PC 
1374 1$: . WORD 1$ 
4480 137 WORD i$ 
44 1 “WORD 1$ 
4452 021 WORD 58-18 
46 1 “WORD 1s 
44 14 WORD 1 
4455 0214 WORD 1$ 
44 141 -WORD  10$-1 
sis Bi as 
44 14 1777, : BIC #177760,RO 
14 b000%7 171742 BIC8 #17,NIB.SAVE 
14 BR &$ 
14 3$: ASL 
14 ASL 
166 Ast 
42700 177417 BIC #177617,R0 
16 4 4 000360 171716 Bite #360,NIB.SAVE 
1 100306 4$: SWAB = ss RO 
hl 1 42700 170377 BIC #170377 RO 
447 14 142767 007400 171700 Bic a 400,NIB. SAVE 
4b 1476 580308 5$: SWABS s«RO 








N 9 
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CZMLADO ML~11 LOGIC TEST 
LD.LNG.WRD ROUTINE DECLARATION SECTION SEQ 0117 
sML4AD r-1982 16:23:04 TOPS 
; ROUTINE DECLARATION SECTION Ya ae 16:21:03 PA:< 
106300 Act R 
Reeene — &F 
142700 007777 BIC #7777,RO 
142767 170000 171652 BIC #170000,NIB. SAVE 
0067 171646 6$: BIS RNIB. SAVE _— 
42700 1777 7$: BIC #177760,R0 : 3033 
142767 000017 171634 BICB #17.NIB. SAVE+2 
006: JV ) 8$: ASL R ’ 3036 
0630 oar R 
106 30C ASL rR 
042700 177417 BIC § #177417,R0 
4 16% 000360 171610 BICB #360, 18. SAVE+2 
Jt 
000306 98; SWAB RO : 3039 
042700 170377 BIC ry 70377 RO 
46 142767 007400 171572 BIC #7400 ,.NIB.SAVE+2 
46 Jt, 1 ; SR 11$ 
; 90 10¢ 10$: SWAB : 3042 
4 106300 Ast 
4 MOA ZOL ASL 
4 N06 30C ASL 
4 142700 007777 BIC # RO , 
4 42767 1 171544 BIC #170000 NIB. SAVE+2 
150067 174500 11$: BIS RO_NIB.SAVES2. _— 
vA 4 
50030 12$: SWAB RO : 3045 
451 142700 170377 BIC #170377 RO 
4311 Ogte46 042767 007400 171524 BIC = -#7400.NIB. SAVE+4 
4 $56 000306 13$: SWAB : 3048 
4 : J. ‘ 106; ¢ ,! ASL 
¢ 64 006300 cer 
2819 OStcze, | ponent 4 
4 570 042700 107777 Bic 7777 RO 
t 702 050067 1714 — 14$: Bis 000 NIB. SAVE*s 
4 ; 012607 158: OV irr i ; 2987 
? 900207 RTS 
4 : tine Size: 111 words 
4 - mum stack depth per invocation: 2 words 


eee 
MACRO M1113 30-MAR-82 11:18 PAGE ¥3$° 


ST 
LARATION SECTION SEQ 0118 
r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
ROUTINE DECLARATION SECTION so-ner=19 18:57:03 PA: <NEALE>ML4AD.BLI.4 (18) 
routine WRT_CS1 (TST_PAT, index) : novalue = 
begin 









Soe 
FUNCTIONAL DESCRIPTION: 


LOADS THE CONTROL & STATUS REGISTER 1 WITH A DATA PATTERN 
GENERATED BY THE MACRO WRT_MASK. 


Foe, SP ss 
C DATA PATTERN TO BE LOADED IN THE REGISTER. 


INDEX 
USED BY THE MACRO WRT TO SELECT THE REGISTERS ADDRESS, 
FORCED HI, FORCED LO DON’ T CARE MASK INFORMATION. 









mast = WRT_MASK; ‘LOAD GENERATED WRT_MASK PATTERN INTO MLCS1 


~SBTTL WRT.CS1 ROUTINE DECLARATION SECTION 
162622 WRT.CS1 Jer R1 $SAVE2 ; 3052 
1 MOV 10(SP), : INDEX,* 71 











JR1 
1 *REG+2(R1) RO 
ser Tae) is | : TST.PAT.« 
1541 mt 6+6(R1). 
173426 


o@Ml .REG 
PC 


z 





; Routine Size: 20 words 
>: Maximum stack depth per invocation: 3 words 


SOS SS SS & SS SS SE BEE EEE EEE EE EPPO RD 


REAM ISS ECO ROSES 
ne cot NN 













WN ee eee 


~" ~~" ~~" a" > 


a x , 


alor. 


va 


i on 2 


pAb a> ~> 


+ 


> 


SONAULWIN—C 


Ce. 
tA 


Sete Ge Ge Ge Ge Ge Se Ge Ge Be Ge Se Ge Ge Se Be Ge Se Be Se Se Ss Se Ge Ge Ge Se Se Ge Ge Ge Be Ge Ge Se Se Ge Ge Be Fe Ge Ge Ge Ge Se Se Ge Se Se Os Oe 
cond and and coh wend cond cnc ond od amb and ond ed 


hin an ae 
con coef) eed worl) exch ooh enna 


Sy? ter 


~Iit 


st ass stdtls sh ROR OF Rohr 





newts wand cont scald axed acall men) ond eet cod oud 
PNNVa= 


DC 
rete 


MACRO M1113 30-MAR-82 11:18 PAGE {36° 
LARAT ION SECTION 


ROUTINE DECLARATION SECTION 


i FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 
le & STATUS ath hate 1 

H THE MASKED DATA PATTERN 
GENERATED BY THE MACRO ‘WRT_MASK‘ 


IF = COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR_FLG’ IS 
ma A ONE TO INDICATE THE 













FORMAL PARAMETERS: 










TST_PAT me 

DATA PATTERN TO BE MASKED AND 
C ) NST THE CONTENTS 
OF THE REGISTER UNDER TEST. 













INDEX 
lite BY THE MACRO WRT el ren TO 
SELECT THE Md FORCED LO STERS ADDRESS, 
Ae es a. F LO AND DON'T CARE 





Beene’ (PASSED BY REF) 
G TO Hon rd THE 





i ees: 


1S. LOADED WITH 
WRT DATA TERN 
CALLER TO PRINT FAILING 







TED 

ALLOWING 

DATA. 

ets. WITH DATA READ FROM THE 
REGISTER Thus 


LOWING CALLER 
TO PRINT FAILING BAD DATA. 














TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>ML4AD.BL1.4 


B9-mar=1985 16:51:08 


routine RD_CS1 (TST_PAT, index. ERR_FLG) : novalue = 


a 


i 
' 


0 | 
C ML-11 Ele TEST MACRO M1113 30-MAR-82 11:18 PAGE "3 | 
WRT.CS1 ROUTINE DECLARATION SECTION SEQ 0120 


: r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
_— r-19 16:37:08 PA: <NEAL SML4AD.BL1.4 4 (19) 


CLEAR ERROR F 








ROUTINE DECLARATION SECTION 
oF DATA FLG s FLAG 
:SAVE THE DATA WRITTEN TO THE REGISTER 
RD-pA -DATA = AL $1 or > IGNORE; ; ‘READ AND SAVE THE REGISTER 
if .WIT_DATA neq .RD_DATA then .ERR_FLG = ONE; ‘READ THE REG FOR WRT_MASK 
!SET ERROR FLAG IF NEQ 












w 





~< 


ed eed end ceed ceed end nd eed 


end; 
-SBTTL *- SAVE DECLARATION — 











5 RD.CS1: JSR 73 
1 tiR ai0¢se ; : ERR.FLG 125 
1 MOV 12(SP SP) RO : INDEX,* 1 
ASL 
ASL 
ASL 
5406 mOV “ReGe2cRt) RO 
14 BIS a4 SP) ,RO : TST.PAT,* 
1 19 BIC ML 
1541 MOV 
BIS 
f my att ser 
1 1 BIS are SB tat) R2 
MOV RD.DATA 
4 1732746 cmp : : 3129 
000001 000010 MOV 2 *, ERR.FLG 
1$: RTS : 3073 


; Routine Size: 35 wor 
; Maximum stack depth p A invocation: 3 words 





0 i 
> MACRO M1113 30-MAR-82 11:18 PAGE {36 | 
ION SECTION SEQ 0121 


r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
sonar -13 18:57:03 PA:<NEAL >ML4AD.BL 1.4 (20) 










ROUTINE DECLARATION SECTION 
routine WRT_ER (TST_PAT, index) : novalue = 
begin 


'e¢ 
FUNCTIONAL DESCRIPTION: 

LOADS THE ERROR REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT _MASK 
FORMAL PARAMETERS: 


ist at 
Cc DATA PATTERN TO BE LOADED IN THE REGISTER. 





INDEX 
USED BY THE MACRO WRT 








TO SELECT THE CURRENT REGISTERS ADDRESS, 
DON’ T CARE MASK INFORMA 









4 
4 

4 

4 

4 

4 

4 

¢ 

4 FORCED HI, FORCED LO TION. 

471 

471 MLER = WRT_MASK;: 'LOAD GENERATE WRT_MASK PATTERN INTO MLER 

471 ‘ 

471 s$BTTL WAT ER TINE DECLARATION SECTION 

4 WRT.ER: J R1. SSAVE 3 3133 
4 MOV 10(SP), 3 INDEX,* 3151 
4 ASL 

4 ASL 

4 MOV Rl 

4 MOV mt 2(R1) RO 

¢ Bic | ML REGSEGRID a? 

4 MOV “AEGrGURI) (RE | 

é ars m0: 

4 MOV -@Al .REG+60 

4 RTS PC : | 3133 
4 : Rout ine Size: 20 words 

rth >: Maximum stack depth per-invocation: 3 words 

47% 





0 
CZMLADO ML-11 LOGIC TEST MACRO M1115 SO-MAR-82 11:18 PAGE 39 
WRT.ER ROUTINE DECLARATION SECTION SEQ 0122 






6p -fer=19 16:23: TOPS-20 Bliss-16 V2(212) 
ROUTINE DECLARATION SECTION 9-Mara1 98 16:37308 PA: <NEALEDML AD BL I «4 4 (21) 
routine RD_ER (TST_PAT, index, ERR_FLG) : novalue = 

begin 


Wie Ul 


bes 


i FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 
ERROR REGISTER WITH 

THE D DATA PATTERN 

TED BY THE MACRO “WRT_MASK'. 


If - COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR rts IS 
roth a A ONE TO INDICATE T 















ve 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


mest 





FORMAL PARAMETERS: 


> 


Pt at tat 
SITIWISELF 





DATK’P ATK PATTERN TO BE MASKED AND 


OF THE REGISTER UWER Test. 


INDEX 

USED BY THE MACRO WRT 
Fy: ; 
MASK INF! TION. 


FLG 


oo habe tal 


IMPLICIT INPUTS: 
ge 






ASAIN ASSIST, 





TO 
N ADDRESS, 
LO AND DON'T CARE 













ed eed eed acd eed ed ed oe ond caf coud end eed cond ced and eed and ed ee 


amb on o— 





ASPEN TS ET 


— 
TO PRINT F LING. BAD DATA. 


IMPLICIT OUTPUTS: 
‘LOADE SO-wit “UIT GOOD 
BAD REGIS DATA 


RELSLSSSLERRAVLS Sao 


PEPPERELL PPL PAPE PREPPED 


SSG 


cenk nad) cuah ead cd ands ond ond coh cod ob 







33333333 


ee 


eee ee. 


oem a ee ee ee - 











CZMLADO 
WRT.ER ROUTINE DE 
301 








i Sm om 2 Se Se 


N=NAW OSE 


4 


wd ed ed ond «dd 


~ 2 


ARINOIORIMROROFOR 


al 


-. 


‘ 
ee 
. 


Seicteteiedeiririe 


= c 


Mi~11 LOGIC TE 
LARATION SECTION 


I 
C 





Ww 


S 
T 





0 
T MACRO M1115 30-MAR-82 11:18 PAGE 7 


ROUTINE DECLARATION SECTION 





TOPS=-20 Bliss-16 V2(212) 
PA: <NEALE>ML4AD.BLI.4 (21) 





Soomera 1985 10:37:08 








eERR_FLG = ZERO; 'CLEAR THE ERROR FLA 
WT_DATA = WRT : :SAVE THE DATA WRITTEN TO THE REGISTER 
RD_DATA = .MLER or .IGNORE; ‘READ AND SAVE THE REGISTER 


if .WILDATA neq .RD_DATA then .ERR_FLG = ONE; 


end 
i 
154 


1 
15412 


173136 


He on, 





IREAD THE REG FOR WRT_MASK 
'SET ERROR FLAG IF NEG 











.SBTTL RD.ER ROUT INE DECLARATION SECTION 
RD.ER: JSR R1. $SAVE ; 

CLR a16(SP) : ERR.FLG 

MOV 12(SP) ,RO : INDEX,* 

ASL 

ASL 

mov 

MOV REG+2(R1) RO 

BIS 1 : TST.PAT,* 

BIC ML. 

MOV ; Y 

nov Se DATA 

MOV ail .REG+60,R2 : 

81S : rece tRI RZ 

MOV »RD.DA 

CAP -DATA,RD.DATA : 

BEQ 1s 

MOV ,@10(SP) : *,ERR.FLG 
1$: RTS PC $ 








Routine Size: 35 


words 
Maximum stack depth per invocation: 3 words 





SE@ 0125 


y 53 


H 10 
5H Psa M1113 30-MAR-82 11:18 PAGE 444 











ION SECTI SEQ 0124 
9-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 
ROUTINE DECLARATION SECTION ae i ES 18:57:08 PA:<NEALE>ML4AD.8L1I.4 (22) 
routine WRT_DA (TST_PAT, index) : novalue = 
begin | 
'e4 
; FUNCTIONAL DESCRIPTION: 
: LOADS THE DESIRED SECTOR WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
: FORMAL PARAMETERS: 
i TST_PAT 
CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
i INDEX | 
§ USED BY THE MACRO WRT TO SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO DON'T CARE MASK INFORMATION. 
— = WRT_MASK; 'LOAD MLDA WITH GENERATED WRT_MASK PATTERN 
-SBTTL TINE DECLARATION SECTION 
162266 WRT.DA: JSR VE 3 3214 
1 MOV : INDEX,* 3232 
ASL 
ASL 
ASL 
MOV 
154 MOV 
: : aie : TST.PAT,* 
Ee Bi 
173120 MOY 
- RTS Z 3214 
3; Routine Size: 20 words 
: Maximum stack depth per invocation: 3 words 


CZMLADO ML~11 





SPERE 


SSSSSSSOSOL SH 
pr RT Att a 3 


sPMLSAD 


LOGIC TEST 
WRT.DA ROUTINE DECLARATION SECTION 





wy a 


Th th tt-Ot-4t- 4+ -4t-0+-4+-4+-4+-0+-4+-¢+-¢+ 


t+-t+-4+-4+ 
PPIPORON 


SOOO OAR Ue 


URIPIPIPIRIRIRIF 


sennenene 


Pon AKG RC 


rm ~ 






=SSAVRG 


VITUIRIFIRIFIFRORIFIROROPRPUPUPLrrL br rit 


9B 
o 


5 


MACRO M1113 30-MAR-82 11:18 PAGE a2" 


ROUTINE DECLARATION SECTION 


—— (TST_PAT, index, ERR_FLG) 


+ FUNCTIONAL DESCRIPTION: 


OF 
} IMPLICIT INPUTS: 
WT _DATA 


| IMPLICIT OUTPUTS: 

















COMPARES THE CONTENTS OF THE 
Orta te SECTOR ADDRESS * ISTER 
3 MASKED DATA PATT - 
GENERAT D BY THE MACRO ‘WRT_MASK' 


iv. = Bg IS Tek. EQUAL THEN 
pk carte in "ERR_FLG* IS 
ASSIGNED 4A INDICATE THE 


TST_PAT 
eae RED AGAINS 1 THe CONTENTS 
OF THE REGISTER UNDER TEST 






MACRO WR TO 
SELECT THE CURRENT RE ISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION 


CONTAINS THE ADDRESS (PASSED BY REF) 
ERROR FLG TO nar THE 
CALLER TO EXAMINE THE TATUS 
INE CALL. 





GETS LOADED be THE GENERATED 
T PATTERN THUS ALLOWING 
CALLER TO PRINT FAILING GOOD DATA. 





RD_DATA 

GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 










AND RD_DATA TTOADED” uit GOOD 
AND BAD” REGISTER DATA 


: novalue = 


Ay ty vatete? 
4 (23) 


SEQ 0125 


CZMLADO ML~11 LOGIC TEST 
WRT.DA ROUTINE DECLARATION SECTION 





4 


SERRRE 


” 


Fete at ee aT 
SOSH 
a 


SSSSSsssssesesssssss 


nk 


138) sMLGAD 





MACRO M1113 30-MAR-82 11:18 PAGE 165° 


ROUTINE DECLARATION SECTION 
-ERR_FLG = ZERO; 


WT_DATA = 


RD_DATA = . 


end; 


15406 
13 
ae 
Het 
17 
0 


1541 
17g46 
172740 172740 
000001 000010 





WRT 3 
MLBA or . IGNORE; 


if .WI_DATA neq .RD_DATA then .ERR_FLG = ONE; 


RD.DA: 


3; Routine Size: 


#rPSSSBxU28 
S 
3 


#1,810(SP) 
PC 


35 words 









si 


‘CLEAR THE ERROR F 


16:91:08 





TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BLI.4 (23) 


LAG 
‘SAVE THE DATA WRITTEN TO THE REGISTER 
‘READ AND SAVE THE REGISTER 


‘READ THE REG FOR WRT_MASK 


!SET ERROR FLAG IF NEQ 


DA ~'; eae DECLARATION SECTION 
SAVE ; 
: ra fle 


>; Maximum stack depth per invocation: 3 words 


; TST.PAT,* 


*,ERR.FLG 


SEQ 0126 


34 
86 
3287 


e 8 8 


| 


K 10 









CZMLADO ML-11 LOGIC TEST MACRO M1113. 30-MAR-82 11:18 PAGE 144 
RD.DA ROUTINE DECLARATION SECTION SEQ 0127 
10 :ML4AD r-198 3:04  TOPS-20 Bliss-16 v2(212) 
1 ROUTINE DECLARATION SECTION $3-ner 1385 16 $3308 PA:<NEALEDML4AD.BLI.4 (246) 
i§ ; routine WRI_MR (TST_PAT, index) : novalue = 
14 ; begin 
2: - 
2 : * FUNCTIONAL DESCRIPTION: 
5019 : : LOADS THE MAINTENANCE REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
1: ¢ FORMAL PARAMETERS: 
5 4 : i TST_PAT 
4 : . CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
: i INDEX 
5027 : 3 i USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 
09 & FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 
5030 : hy 
30 € 1 MLR = WRT_MASK;: !LOAD MLMR WITH GENERATED WRT_MASK PATTERN 
50 a @ 
50 ~SBTTL WRT.MR ROUTINE DECLARATION SECTION 
5041 022424 0041 7 162110 WRT.MR: JSR Ri saver : 3294 
5048 4 1 000010 MOV (SP), : INDEX,* 3312 
5043 0224 ASL 
4 ASL 
ss is 
442 010001 MOV »R1 
444 016100 0154 MOV -REG+2(R1) RO 
450 90001 BIS (SP) «RO : TST.PAT,* 
454 1541 BIC -REG+4(R1), -R0 
460 1 102 015412 MOY R Seti 
1027? 173032 MOV aL .REG+120 
$6 910307 hoy : wall 


; Routine Size: 20 words 
: Maximum stack depth per invocation: 3 words 


SRARWNOS 


re eee ceeeneee 


0 
I T MACRO M1115 30-MAR-82 11:18 PAGE Th 
ROUTINE DECLARATION SECTION SEQ 0128 


sMLSAD 9=Mar-1982 16:23:04 TOPS=20 Bliss-16 V2(212) 
: ROUTINE DECLARATION SECTION 9-Mar= 1985 18:31:08 PA: <NEALE>ML4AD.BL1.4 (25) 


ae (TST_PAT, index, ERR_FLG) : novalue = 
n 


: 


C 


ML~11 LOGIC TES 
WRT. T 






BgEe 


14+ 
; FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 
MAINTENANCE REGISTER WITH THE 
MASKED DATA PATTE 

GENERATED BY THE MACRO ‘WRT_MASK’. 


IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR_FLG' IS 
erst) A ONE TO INDICATE THE 


23 








SEES ERR 





FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 











INDEX 
USED BY THE MACRO WRT TO 
SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


Se 
WNWNNWA AAA AAA AAA AIA AAAI A AI 


S33 


ia 
ae 


ERR_FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO E 


SuSE ESeSSSEEEORERESS 


rs 


NOune 












XAMINE THE ERROR STATUS 
190 OF THE ROUTINE CALL. 
1 ‘ IMPLICIT INPUTS: 
1 WT _DATA 
1 GETS LOADED WITH THE GENERATED 
105 T DATA PATTERN THUS ALLOWING 
: 2 CALLER TO PRINT FAILING GOOD DATA. 
1 RD_DATA 
1 GETS LOADED WITH DATA READ FROM THE 
110 REGISTER THUS ALLOWING CALLER 
ay TO PRINT FAILING BAD DATA. 
113 IMPLICIT OUTPUTS: 
114 GLOBAL LOCATION WR_DATA 
115 AND RD_DATA LOADED WITH GOOD ~ 
118 AND BAD REGISTER DATA | 
118 - 





55 


M10 









MLADO ML~11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 146 
T.MR ROUTINE DECLARATION SECTION SEQ 0129 
120 ;MLSAD 9-Mar-1982 16:23: TOPS=-20 Bliss-16 v2(212) 
; : ; ROUTINE DECLARATION SECTION $5me n= 1385 18:37 208 PA:<NEALE>ML4AD.BLI.4 (25) 
125 ; 
5124 : -ERR_FLG = ZERO: ‘CLEAR THE ERROR FLAG 
5125 : WT_DATA = WRT MASK; 'SAVE THE DATA WRITTEN TO THE REGISTER 
2 6 ; 9 RD“DATA = . or . IGNORE: ‘READ AND SAVE THE REGISTER 
4 ; a if .WI_DATA neq .RD_DATA then .ERR_FLG = ONE; ‘READ THE REG FOR WRT_MASK 
2] : ‘SET ERROR FLAG IF NEQ 
31 } ; 7% end: 
51 -SBTTL RD.MR ROUTINE DECLARATION SECTION 
514 476 162040 RD.MR: JSR R1.$SAVE : 3314 
5141 022500 10 CLR a10(SP) : ERR.FLG 3367 
3148 504 12 MOV 12(SP) ,RO : INDEX,* 368 
514 51 ASL R 
5144 31 ASL R 
145 1 ASL 
146 1 MOV RO.R1 
14 015406 MOV ML -REG*2(R1) .RO 
168 4 14 BIS 14(SP) ,RO : TST.PAT,* 
14 015410 BIC ML. REG+4(R1).R 
150 015412 MOV »REG+6(R1).R 
131 BIS oR 
1 : 17 $0 MOV R2.WT.DATA 
15 1727 MOV @ML .REG+120,R2 : 3369 
154 0225 O1 41 BIS - ML -REG*G (R15 .R2 
155 1237 MOV R2,RD.DATA 
1 172562 172562 cP W.DATA.RD.DATA : 3371 
158 3 000001 000010 MOV #1,a10(SP) : *,ERR.FLG 
159 1$: RTS PC : 3314 


Vn 

at ed met 

SU 
Se Se 


Rout ine Size: 35 words 
Maximum stack depth per invocation: 3 words 


—— ee eee — 





eee 


N 10 
CZMLADO ML-11 LOGIC TEST MACRO M1115 30-MAR-82 11:18 PAGE 14) 
RD.MR ROUTINE DECLARATION SECTION SEQ 0130 


Te 



















170 ;ML4AD 9-Mar-1982 16:23: TOPS-20 Bliss=16 v2(212) 
4: : ROUTINE DECLARATION SECTION $3-ner 1985 18:57 .08 PA:<NEALE>ML4AD.BLI.4 (26) 
; 138 : 75 routine WRI_PA (TST_PAT, index) : novalue = 
174 ;: £8 begin 
5175 ;: 
2178 : A. S44 
31 : 3 i FUNCTIONAL DESCRIPTION: 
178 : i LOADS THE PROM ADDRESS REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
5179 : 1 |! FORMAL PARAMETERS: | 
5180 : i TST PAT | 
51 1; CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
5183 : 5 i USED BY THE MACRO WRT MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 
31 A i wa FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 
5186 : ; 
5187 : 'SET PROM DISABLE BIT 
5188 : 'LOAD MLPA WITH GENERATED WRT_MASK PATTERN 
5189 : 91 ICLEAR PROM DISABLE BIT 
5180 : 92 | 
195 -SBTTL WRT.PA ROUTINE DECLARATION SECTION 
3199 161732 WRT.PA: JSR R1,$SAVE ; 3375 
6 172710 B1SB #£40,aML.REG+120 : 3389 
H 01 | mov 10(SP) ,RO * INDEX,* 3390 
| ASL | 
ASL 
| MOV »R1 
154 MOV Mi -REG#2(R1) RO | : 
0 He ae aesittany ne 
1541 MOV -REGt6(R1)_R | 
17 oie Lea REG+1 
boaecs 172640 BICB 6" ahi REG++ 50 : : | 3391 
| RTS PC : 3375 





: Routine Size: 26 words | 
3 Maximum stack depth per invocation: 3 words 


CZMLADO ML-11 





tt : 
UPR PUUNNNNN 


A 
+ 


~«— Owe 





LOGIC TEST 
WRT .PA ROUTINE DECLARAT 


4 ;MILGAD 


vterteet ete eet 


= oO 


SSooSSoSS eS 


et et ed > 


=“OOONOUSWN OK 


aero 


1 
1 
1 
1 
1 
1 
1 
a 
T% 
% 
TE 


eVBNE 


— 





MACRO M1113 30-MAR-82 11:18 PAGE P08 


TION SECTION 


r-19 16:63:06 
ROUTINE DECLARATION SECTION r-1982 16:21:03 
routine RD_PA (TST_PAT, index, ERR_FLG) : novalue = 
begin 


14+ 
: FUNCTIONAL DESCRIPTION: 





IMPLICIT OUTPUTS: 


COMPARES THE coat eNTS OF THE 
PROM ADDRESS REGI 


WITH THE RASKED DATA PAT WAT MASK 7 


IF = COMPARE IS NOT EQUAL 
THE FORMAL PARAMETER ‘ERR _F 
a A ONE TO INDICATE 










THEN 
LG’ IS 
THE 





DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE “are 
OF THE REGISTER UNDER TEST 










TO 
RE ADDRESS, 
FORCED HI, FORCED LO i DON’T CARE 
INFORMAT Tone 


F) 
THE 






CONTAINS, THE ag Be TO ENABLE 


Sls ee he 


IMPLICIT INPUTS: 
wT 





gers. LOADED WITH GENERATED 
DATA PATTERN THUS ALLOWING 
CAL TO PRINT FAILING GOOD DATA. 


eers. ishtar in WITH DATA READ FROM THE 
LOWING CALLER 
10 SPRINT FAILING BAD DATA. 





Sat SATO OY cn 
AND BAD REGISTER DATA 


TOPS-20 Bliss-16 V2(212) 


PA: <NEALE>ML4AD.BLI.4 


4 (27) 


SEQ 0131 


ee ney 








¢ 11 
CZMLADO ML-11 LOGIC TEST MACRO M1113 SO-MAR-82 11:18 PAGE 49 
WRT.PA ROUTINE DECLARATION SECTION SEQ 6132 



















80 ;MLGAD r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
281 : ROUTINE DECLARATION SECTION sonar -19 18:57:08 PA:<NEALE>ML4AD.BL1.4 (27) 
BS ; 5 -ERR_FLG = ZERO: 'CLEAR THE ERROR FLAG 
ty ; PROM-DIS = ONE; ‘SET THE PROM DISABLE BIT 
B85 ; WT_DATA = WRT AASK; 'SAVE THE DATA WRITTEN TO THE REGISTER 
6 ; RD-DATA = .MLPA or . IGNORE: ‘READ AND SAVE THE REGISTER 
ae : 36 if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 'READ THE REG FOR WRT_MASK 
5590 : 52 PROM_DIS = ZERO: 'SET ERROR IF NEQ 
2 1: 5 end; 'CLEAR THE PROM DISABLE BIT 
Y. .SBTTL RD.PA ROUTINE DECLARATION SECTION 
10¢ 167 : 1646 RD.PA: JSR R1,$SAVE : : 3393 
1 0226 3076 1 CLR ai 0(sP) ; ERR.FLG 5 
sc 67; 0 172620 BIS8 #40,aML.REG+120 ; 
3305 0 16¢ 12 MOV =: 12(SP) .RO ; INDEX,* 3447 
fi ASL R | 
23 ASL R 
iC ; ASL 
C MOV RI 
01 15406 way ML -REG*2(R1) .RO 
0S 14 6iS 14(SP) ,RO : TST.PAT,* 
10 1 BIC ML.REG+4(R1),R 
i 1541 nov G+6(R1).R 
1 ? MOV »WT.DATA 
14 0; 1725 MOV aM. .REG+100,R2 ; 3448 
15 1541 | BIS ML REG*G(RIS, 
16 MOV »RD.DATA 
ut 172362 cmp WT.DA : 3450 
53 1 10 MOV #1.a : *,ERR.FLG 
32 ae Ett 1$: Bice 4s «#40 : 3452 
1 RTS PC § 39 


; Routine Size: 41 words 
: Maximum stack depth per invocation: 3 words 


w*?-4?- 4? 4+ o+-e+ 


ST MACRO M1115 SO-MAR-82 11:18 PAGE 50" 
ION SECTION SEQ 0135 


a r=19 3: TOPS-20 Bliss-16 V2(212) 
ROUTINE DECLARATION SECTION ra 1985 1 33:03 PA:<NEALE>MLSAD.BLI.4 (28) 


routine WRT_E1 (TST_PAT, index) : novalue = 
begin 






'o+ 
i FUNCTIONAL DESCRIPTION: 
LOADS THE ECC CRC WORD REG 1 WITH A DATA PATTERN GENERATED BY THE MACRO WRT MASK 
, oe. PARAMETERS: 
TST_PAT 
CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 


USED BY THE MACRO WRT_MASK TO amact THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 

















ar ann “SET ECC DIAG _MODE 
ERO :LOAD MLE1 WITH GENERATED WRT_MASK PATTERN 
ect Dh =7Z | ICLEAR ECC DIAG MODE 


-SBTTL ar. E1 gaae DECLARATION SECTION 











so0007 172502 wessteat aise 1a 6+120 : 3ce8 

000010 mov - + RO : INDEX,* 3469 
ASL 3 
oo 

0154 MOV mt, #2(R1),RO 

9000 gis 12 fo : TST.PAT,* 

1541 nov : setRID AS 

172470 MOV R -AAL REGS 

000001 172432 BICB #1. aL REG $7130 : 3470 
RTS . : 3454 


; Routine Size: words 
3; Maximum stack Pde vy per invocation: 3 words 


——— 





LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE is} 





CZMLADO ML~11 

WRT.E1 ROUTINE DECLARATION SECTION SEQ 0134 
sPLSAD 9-Mar-19 193 3: - ° 
: ROUTINE DECLARATION SECTION s5-mara1983 16 1:03 PAs NEAL SMLEAD BL a (29) 


routine RD_E1 (TST_PAT, index, ERR_FLG) : novalue = 
begin | 
1o¢ 
FUNCTIONAL DESCRIPTION: 
COMPARES THE CONTENTS S OF THE 
ECC CRC WORD REGI 
WITH THE MASKED wATAT PATTERN 
GENERATED BY THE MACRO ‘WRT_MASK' 
IF THE COMPARE IS NOT EQUAL 
THE FORMAL PARAME SEAR ‘Lge 1S 
i ASSIGNED A ONE TO INDICATE THE ERROR. 
| FORMAL PARAMETERS: 
i DATA PATTERN TO BE MASKED 
COMPARED 


AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 








pERes SoS 





F33 


AIIIR 


YE 


555% 






33 


POO NIAULSWMO< 





INDEX 
USED BY THE MACRO WRT TO 
MASK INFORMATION. 







SSS SESRIPERS ¢ 


cond 


A notes (PASSED BY REF) 
AAINE THE ERROR STATUS | 
THE ROUTINE CALL. 


| IMPLICIT INPUTS: 
WT_DATA 
GETS LOADED WITH THE GENERATED 


WRT DATA PATTERN THUS ALLOW 
CALLER TO PRINT FAILING G00)" DATA 





come ced ed wed ed ee aed ed ed 


Can 
Bx 


5 





n 
: 


2 
e 
. 
e 
J 
w 
“ 
« 
e 
* 
a 
« 
av 
” 
e 
© 
. 
* 
. 
e 
* 
7 
> 
a 
° 
o 
e 
° 
e 
” 
e 
. 
e 
« 
@ 
. 
o 
° 
« 
2 
? 
* 
* 
” 
o 
“ 
e 
° 
o 
e 
2 
* 
* 
» 
oa 
» 
e 
* 
a 
e 
° 
+ 
¥ 
. 
° 
o 
é 
’ 
s 
° 
© 
7 
e 
2 
e 
@ 
e 
© 
o 


5 

5 

a1 

1 SETS LOADED WITH DATA READ F T 
S18 REGISTER THUS ALLOWING CALLER” - 
i aig | TO PRINT FAILING BAD DATA. 
3 i ' IMPLICIT OUTPUTS: 
i | Saaa BATA" LBAOES-BHT coo 
:. 3 AND BAD REGISTER DATA 
0 2 § ~ERR_FLG = ZERO: ‘CLEAR THE ERROR FLAG 














oa 


F 11 
CZMLADO ML~11 LOGIC TEST MACRO M1113  30-MAR-82 11:18 PAGE 152 | 
WRT.E1 ROUTINE DECLARATION SECTION SEQ 0135 
















SPILGAD r-1982 16:23: TOPS-20 Bliss-1 (212) 
: ROUTINE DECLARATION SECTION $3 nar 1388 18:57:98 PA: <NEALESML GAD BL fc ob9) 
: ECC_DM = ONE; 'SET ECC DIAG MODE 
: WT_DATA = WRT_MASK;: ‘SAVE THE DATA WRITTEN TO THE REGISTER 
; RD-DATA = .MLE1 or . IGNORE: 'READ AND SAVE THE REGISTER 
; if .WT_DATA neg .RD_DATA then .ERR_FLG = ONE; !READ THE REG FOR WRT_MASK 
; ECC_DM = ZERO; ‘SET ERROR FLAG IF NEO 
: - ICLEAR ECC DIAG MODE 
3 end; 
-SBTTL RD.E1 ROUTINE DECLARATION SECTION 
, b010 — ti 3p > ERR.FLG $58 
. 1 172612 BISB pee se 
re 2 MOV 3: INDEX,* 525 
A 
4¢ 
| ASL 
3465 MOV 
i BIS TST.PAT,* 
47 BIC i aia 
i MOV 
| BIS 
mov 3526 
of 3 
: 172154 cw : 3528 
sees 01 1 MOY : *, RR.F 
00001 Hoesio 1$: BILE : —_— 30 
RTS : 72 


Routine Size: 41 words 
Maximum stack depth per invocation: 3 words 


SIIIIILS 
vt. te} tet cert 





RD ee tre teen 





1 
ZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE Sot 
RD.E1 ROUTINE DECLARATION SECTION SEQ 0136 
r-1982 16:23: TOPS-20 BLiss-16 V2(212) 
ray 9RS 18:57:08 PA: <NEAL SALAAD BLT a (30) 





| 
| 
| 





ROUTINE DECLARATION SECTION 
routine WRT_E2 (TST_PAT, index) : novalue = 
begin 








144 
FUNCTIONAL DESCRIPTION: 


BELEK 


- 





> 








1, 

¢ LOADS THE ECC CRC WORD 

506 i REGISTER 2 WITH A DATA PATTERN 
IC GENERATED BY THE MACRO 

0 T_MASK 





= 


FORMAL PARAMETERS: 


Ap Ay 


[ST eAT 
C NT DATA PATTERN TO BE LOADED IN THE REGISTER. 









INDEX 
USED BY THE MACRO WRT 
ADORESS« FORCES Hie HORcED es 
LO AND bon’ T care MASK 

INFORMATION. 





WN = S 





owed cmd cud ond anh aed 6 ~<) end od 


Ss OONOANE WOODS 









DATA DIAG BITS 
E2 WITH GENERATED WRT_MASK PATTERN 


VIURGINGFUF 








MLE 
2  ,SBTTL WRT.E2 ROUTINE DECLARATION SECTION 
” 1 16 WRT.E2: JSR Ri Teeaves” : 533 
j 172874 BISB = #1 , RL. .REG+1 : 58 
: j Moy = : 559 
; 00001 MOV : INDEX,* 3560 
; ASL 
4 ASL 
7 OV 
154 MOV Mi G RO 
BIS 12(SP) ,RO : TST.PAT,* 
1541 BIC Rl -REGS4.(R1) .RO 
1541 MOV Mi -REG*GCRI) LR 
BIS OR 





CZ 
WRT .E 








ML~11 LOGIC TEST 
ROUTINE DECLARATION SECTION 





7 10277 1 
cs 
3 000207 


sML4AD 


1 
MACRO M1113 30-MAR-82 11:18 PAGE "st 


R2, ae; 
i Ae 
RTS PC 


; Routine Size: 31 wo 
: Maximum stack depth. Hh invocation: 






L .969*160 


#1. aAL -REG*120 





CLR 
81¢8 


ROUTINE DECLARATION SECTION 


3 words 





SEQ 0137 


Shs AE 


us 


ee ee ee ee ee 





Se 0 ee ene eae 






C 
WRT .E 


7 ;MLGAD 


Mi-11 LOGIC TEST 
ROUTINE DECLARATION SECTION 





1 
MACRO M1115 SO0-MAR-82 11:18 PAGE 153 


ROUTINE DECLARATION SECTION 





routine RD_E2 (TST_PAT, index, ERR_FLG) 
begin 


5 e+ 


' FUNCTIONAL DESCRIPTION: 











soreness Epes Me 


PUNE Ae SUN 


IF = COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR FLG* IS 
ieee A ONE TO INDICATE THE 









FORMAL PARAMETERS: 













ile TAGAINST THE” CONTENTS 
OF THE REGISTER UNDER TEST. 






INDEX 
USED BY THE MACRO UR TO 

SoREED Me FORCED ne AD Box’? ‘ CARE Re 
MASK INFORMATION 





SS (PASSED BY RE 


a TO EMBLE THE 





IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 


y 
a 


DATA 
GETS LOADED WITH THE GENERATED 

WRT DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 













errs. LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 





SPH EARL TN oy 
AND BAD REGISTER DATA 


liss-i6 vacate) 
4 (31) 


: novalue = 


SEQ 01358 


—— ewww — - 























cz 1 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 154" 
WRT .E ROUT INE DECLARATION SECTION SEQ 0139 
sMLGAD 3: TOPS-20 Bliss-16 V2(212) 
é : ROUTINE DECLARATION SECTION somerioes 18 57:08 PA:<NEALE>ML4AD.BL1.4 (31) 
: 1 
8 : 7 gcc BAS ONC’ iSET ECE DIAG. Hos 
: 9 MLE MASK a Sent Z7 700": iMASK OUT DATA DIAG BITS 
: WT_DATA iSAVE THE DATA WRITTEN TO THE REGISTER 
1: 1 RD “DATA . wy 2 or . IGNORE; IREAD AND SAVE THE REGISTER 
: $ if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; !READ THE REG FOR WRT_MASK 
5: 5 SET ERROR FLG IF NEQ 
: é MLE2 MASK = %0'000000'; iRESTOR BLES MASK 
: ECC_BM = ZERO; iCLEAR Ecce BiAG AG MODE 
aor ; 8 end; 
$643 .SBTTL RD. E2 2 ROUTINE DECLARATION SECTION 
564 161220 RD.E2: JSR ; 3564 
10 CLR a teh  ERR.FLG 3617 
1 172172 BIS8 #1,aML.REG+120 : 3618 
i 172232 MOV REG+166 : 19 
000012 MOV 1 : INDEX,* 3620 
ASL 
ASL 
ASL 
MOV 
15406 MOV mL 
14 BIS 1 : TST.PAT,* 
1541 BIC ML 
1541 MOV 
BIS 
171746 MOV é 
17215 MOV ani : 3621 
o1 41 BIS mi 
ia a 
6 171726 CP MT : 3623 
oon 000010 MOV hn : *, ERR.FLG 
mF -~ Ba : ss 
000001 172056 BICB of : 
? RTS PC : 3564 





3 words 


ee re ee a ee ree ee ee -_- 


— 


LL ae estes sesssesnsssenssesessstshsenssasesmssemenunenmmens. + rere eect ance 


K 11 
CZ7MLADO ML~-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE is} 
RD.E2 ROUTINE DECLARATION SECTION SEQ 0140 
79 ;ML4AD 9-Mar-1982 16:23:04 TOPS-20 Bliss-16 vacate? 
3080 ; ROUTINE DECLARATION SECTION Soma 1385 16:57:08 PA:<NEALE>ML4AD.BL1I.4 (32) 





routine WRT_PD (TST_PAT, index) : novalue = 
begin 


Ww 


1 
e+ 
$ ' FUNCTIONAL DESCRIPTION: 






LOADS THE PROM DATA 
REGISTER WITH A_DATA PATTERN 
oR MASK BY THE MACRO 


FORMAL PARAMETERS: 


LORRENT DATA PATTERN TO BE 
LOADED IN THE REGISTER. 










USED BY THE MACRO WRT_MASK 
TO SELECT THE CURRENT REGISTERS 
FORCED HI 


LO AND Bon’T CARE MASK 
INFORMATI 









Win 


Ssasasese 





‘SET PROM READ WRITE 

iSET DATA DIAG MODE 

'L MLPD WITH GENERATED WRT_MASK PATTERN 
DOA DATA CLK 





~ 
—_ 


MIVIMMUIMUMIUA 


= 








0 
1 
218 LEAR PROM READ WRITE 
z13 iCLEAR DATA DIAG MODE 
71 
719 " sini mm WRT BD R TINE DECLARATION SECTION 
4 30 1 172042 . isp .REG+ : 3623 
10 172034 B1S8# REG+1 : 36 
10 : »,RO : INDEX,* 5 
7 ASL 
5 ASL 
RO,R1 
0154 Mi, REG*2(R1) .RO 
510 1 BIS 12(SP) ,RO : TST.PAT,* 
514 1541 BIC ML .REG+4(R1) RO 


SO ET em mm . a 


ete a eee 


a 


1 
MACRO M1113 30-MAR-82 11:18 PAGE isk 





CZMLADO ML-11 LOGIC TEST 
WRT.PD ROUTINE DECLARATION SECTION SEQ 0141 
5 sML4AD TOPS 
3 ROUTINE DECLARATION SECTION aS ga: 08 PA:< 
0 016102 015412 MOV -REG*+6(R1) ,R2 | 
ae BIS RO-RS. | 
740 ; 01 17 MOV oe Meee: | 
761 15 171764 BI1SB sit : 3658 
574 540 142777 17175 BICB : 59 
743 023546 14 77 17175 «BIB HO, G0 eA aegei2 ; 3660 
744 554 RTS $ 
745 
Se ; Routine Size: 35 wo 
74 : Maximum stack depth. An invocation: 3 words 


wee oe ee 


CL LL SS esses sseaseisssssssessnsnsnsstssensssssssssssissennsessesesssiemeeeeeeccs,............ —_ 


"11 
MACRO M1113 30-MAR-82 11:18 PAGE 159 | 


ION SECTION SEQ 0142 























DATA 

GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 

TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
GLOBAL LOCATION WR_DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


755 ; 9-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 
3756 : ROUTINE DECLARATION SECTION $5 mann 1965 16:57 .08 PA:<NEALE>ML4AD.BL1.4 (33) 
738 : bE routine RD_PD (TST_PAT, index, ERR_FLG) : novalue = 
; 5¢ begin 
5761 : 5665 i++ 
37 ; 566 FUNCTIONAL DESCRIPTION: 
3764 668! COMPARES THE CONTENTS OF THE 
5765 : 569 | PROM DATA ISTER 
766 ; 670 | H THE MASKED DATA PATTERN 
? ; 671 GENERATED BY THE MACRO 'WRT_MASK* 
5769 : 58 i IF THE COMPARE IS NOT EQUAL THEN 
; 574 THE FORMAL P TER "ERR FLG' IS 
771 : 575 I ASSIGNED A ONE TO INDICATE THE 
og i we — 
77% : 578 | FORMAL PARAMETERS: 
° c i 
oe a 
; 81 DATA PATTERN TO BE MASKED AND 
278 ; 568 i COMPARED AGAINST THE CONTENTS 
279 5 OF THE REGISTER UNDER TEST 
7 : 5685 i 
; ‘86 USED BY THE MACRO WRT TO 
; 587 SELECT THE CURRENT REGISTERS ADDRESS, 
: 568 FORCED HI, FORCED LO AND DON'T CARE 
; 89 MASK INFORMATION. 
; 91 | 
; 592 SONTAT AINS THE ADDRESS (PASSED BY REF) 
; 593 OF THE CALLERS ERROR FLG TO ENABLE T 
; 594 CALLER TO EXAMINE THE ERROR STATUS 
; 695 OF THE ROUTINE CALL. 
: 398 i IMPLICIT INPUTS: 
3 598 | WT_DA 
; 599 I GETS LOADED WITH THE GENERATED 
: : i WRT_MASK DATA PATTERN THUS ALLOWING 
; 701 CALCER TO PRINT FAILING GOOD DATA. 
; 
° i 
: i 
s i 
$ i 
s i 
: : 
s i 
s i 
s ie 





——————— nese, 











N11 | 
CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 160 
WRT.PD ROUTINE DECLARATION SECTION SEQ 0143 
11 :MLGAD 9-Mar-1982 16:23: TOPS=20 Bliss-16 V2(212) 
1g : ROUTINE DECLARATION SECTION S3- nor} 955 18:57:93 PA:<NEALE>ML4AD.BLI.4 (33) 
14; 714 
15: 715 -ERR_FLG = ZERO: ‘CLEAR ERROR FLG 
16 ; 716 = ONE; ‘SET PROM READ WRITE 
7: 71 DAT_BM = ONE: ‘SET DATA DIAG MODE 
18 : rig WT_BATA = WRT MASK: ‘SAVE THE DATA WRITTEN TO THE REGISTER 
19; 719 RD-DATA = . or IGNORE; 'READ AND SAVE THE REGISTER 
-™ @ ‘ 
321 : 721 if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; !READ THE REG FOR WRT_MASK 
§ ; ? § ‘SET ERROR FLAG IF NEQ 
B24: 724 PROM_RW = ZERO: 'CLEAR PROM READ WRTE 
9825 : 725 DAT_BM = ZERO; : 'CLEAR DATA DIAG MODE 
Ht .SBTTL RD.PD ROUTINE DECLARATION SECTION 
B35 0235 756 RD.PD: JSR R1,$SAVE F 3662 
B36 10 CLR 3 ERR.FLG 3715 
8: 100 171730 BISB REG+120 : 3716 
9838 0235 19 171722 BISB EG+12 : 3717 
2835 23602 00001 Rov ; INDEX,* 3718 
f: ' 61 . ASL 
B42 02361 ASL 
+: ’ 61 MOV 
1 23616 015406 MOV +2(R1) RO 
B45 0236; 14 BIS RO , : TST.PAT.* 
tole ( 626 419 BIC (R1) RO | 
3847 02363. 41 mov (R1),R | 
3849 023640 504 MOV WT DATA | 
850 O23¢ 764 MOV +230 ,R2 : | 3719 
3851 023650 13612 BIS R15 .R2 
B52 0236 7167 MOV DATA 
1853 02366C 464 171664 cw A.RD.DATA | : | | 3721 
855 02367C 1 10 MOV “ee : *, ERR.FLG 
5¢ aseert G9or00 fate 1s: ee 120 370% 
+t de 10 17161 BICB -REG+ : 3723 
83 023712 So RTS ; 
386( : Routine Size: 47 words 
BE : Maximum stack depth per invocation: 3 words 





TEST MACRO M1113 3O0-MAR-82 11:18 PAGE Fel" 
LARATION SECTION SEQ 0144 





r-1 16:23: TOPS- liss-1 (212) 
ROUTINE DECLARATION SECTION 33h 18:57:08 PA: ALESALAAD Lic é ee) 
routine WRT_EL (TST_PAT, index) : novalue = 
begin 








lee 

i FUNCTIONAL pope Ae ap ef 

CALL TO ASSIST IN THE READ 
WRITE REGISTER ALGORITHEM 


FORMAL : 
aengres 
DA OMPARED aoa TO BE 


COMPARE NST T CONTENTS 
OF THE REGISTER NST WE Com 


ti aa THE CURRENT “RE STERS- ADDRESS 
FORCED D HI. FORCED LO AND DON’T CARE - 



















i ERROR R LOCATION REG IS READ ONLY 





Ap ap ap ap ay 





-SBTTL WRT.EL ROUTINE DECLARATION _— 
WRT.EL: RTS PC 3727 





2 





23 


| Ric Size: 1 word 
Maximum stack depth per invocation: 0 words 


yh. A. 
> . . 
+ 


g 


tliat 
CL Se ssstetesssstsssnsissssssssssssssssessnnssseeeeeeerece---..... " 
















£ 
CZMLADO Mi~-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 63 
WRT.EL ROUTINE DECLARATION SECTION SEQ 0145 
915 ;MLGAD 3 la 16:23: TOPS-20 Bliss-16 V2(212) 
eS ; ROUTINE DECLARATION SECTION | r-1 18:57:08 PA:<NEALE>ML4AD.BLI.4 (35) 
918 ; 753 routine RD_EL (TST_PAT, index, ERR_FLG) : novalue = 
5 3 P27 begin™ 
755 
7 fag 
2 FUNCTIONAL DESCRIPTION: 
26 COMPARES THE CONTENTS OF THE 
760 ERROR LOCATION REGISTER 
ree WITH THE CONTENTS OF TST_PAT. 
7 IF THe COMPARE IS NOT EQUAL THEN 
7 THE FORMAL PARAMETER ‘ERR FLG' IS 
765 ASSIGNED A ONE TO INDICATE THE 
766 ! ERROR 
767 =! 
7 ! FORMAL PARAMETERS: 
: TST_P 










AT 
DATA PATTERN TO BE MASKED 
C AGAINST THE CONTENTS Ss 
OF THE REGISTER UNDER TEST 



















NDEX 
USED BY THE MACRO WRT TO 

SELECT THE CURRENT REGISTERS ADDRESS. 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 





IS 


CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE THE 
ae TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


| IMPLICIT INPUTS: 
WT_DATA 
GETS LOADED WITH THE GENERATED 


WRT DATA PATTERN THUS ALLOWING 
CALLER TO PRINT FAILING GOOD DATA. 








"ETS. LooeP WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 


i IMPLICIT OUTPUTS: 





79 
a 
799 


GLOBAL LOCATION WR_DATA 

AND RD_DATA LOADED WITH GOOD 
ts '80C AND BAD REGISTER DATA 
O45 af 


Be te Se Ge te Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Gs Ge Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Be Se Be Ge Be Se Se Se Be Se Se Ge Ge Se Ge Ge Ge Se Se Se Se Se 
“J 
veach 


“wy Core Parr 7 
++ 


C= 
y+ 


eERR_FLG = ZERO; 











C TEST MACRO M1113 30-MAR-82 11:18 PAGE Ths 












CZMLADG ML~11 LOGI 
WRT.EL ROUTINE DECLARATION SECTION SEQ 0146 
SMLGAD r=1982 16:23: Liss-16 v2(212) 
; ROUTINE DECLARATION SECTION rags 18:37:93 ees ae LS (35) 
: WT_DATA = .TST_PAT: ‘SAVE THE DATA WRITTEN TO THE REGISTER 
75 ;  RDTDATA = :MLEL: iREAD AND SAVE THE REGISTER 
7? ; if .RD_DATA neq .WT_DATA then .ERR_FLG = ONE; !READ REGISTER FOR WT_DATA 
): 10 end; 
-SBTTL RD.EL ROUTINE DECLARATION SECTION 
? 2 RD.EL: CLR aise) : ERR.FLG 
171420 MOV 6(SP) : TST.PAT,* 
ef 171670 1714146 ami REG 13 DATA : 
hi 171410 171404 cP SD eBATA aT. sh DA : 
000002 MOV #1 .a2(SP) : *, ERR.FLG 
1$: RTS : 3753 


outine Size: words 
: i. ~ mum stack nk per invocation: 0 words 





CZMLADO ML~11 LOGIC TEST 








MACRO M1113 - 30-MAR-82 11:18 PAGE it? 


eEL ROUTINE DECLARATION SECTION 












sPLSAD 

: 3s 12 
: 81 

: f 14 
‘ + ; 3 
: f i 
4 t 

: q 
; 8 

‘ TF 

1 023756 000207 





SRI IGE WER Aer t "2, 





ROUTINE DECLARATION SECTION 
routine WRT_EE (TST_PAT, index) : novalue = 
begin 


bas 
i FUNCTIONAL DESCRIPTION: 

ROUTINE CALL TO ASSIST IN THE READ 
WRITE REGISTER ALGORITHEM 


F a 4 TERS: 
DATA PATTERN TO BE MASKED 


C AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST 














INDEX 

Orr ece eY THEY cfacno wal STERS ADDRESS 
SOREED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 





: ECC ERROR REGISTER IS READ ONLY 
return; 


eSBTTL WRT.EE ROUTINE DECLARATION — 
WRT.EE: RTS PC 


; Routine Size: 1 word 
: Maximum stack depth per invocation: 0 words 





SEQ 0147 


EE CN = Se nn em 











F 
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CZMLADO ML-11 LOGIC TEST 
WRT.EE ROUTINE DECLARATION SECTION SEQ 0148 
> PLSAD r=1 16:23: corse ed Suike Peas aa’ v2C212) 
: : ROUTINE DECLARATION SECTION Sonor] 16:37:08 <NEALEML4AD.BLI.4 (37) 








































“> 


IMPLICIT OUTPUTS: 


oh BATA T OADED “WITH GOOD 
AND BAB R REGISTER DATA 





+4: 





"TO _THE REG STER 


9055 ; 1356 routine RD_EE (TST_PAT, index, ERR_FLG) : novalue = 
i ; 8: begin 
: B39 +4 
5059 ; f 9 FUNCTIONAL DESCRIPTION: 
5061 : 842 i COMPARES THE CONTENTS OF THE 
5062 : f ; ECC ERROR REGISTER WITH TST_PAT. 
5064 : B45 IF THE COMPARE 1S NOT, EQUAL THEN 
5065 ; 846! THE F PARAMETER ‘ERR PLGe Is 
5066 : B47 ASSIGNED A ONE TO INDICATE T 
5069 : $850 | FORMAL PARAMETERS: 
5070 ; 851 | TST_PAT 
5071 ; 359 DATA PATTERN TO BE 
9072 ; 853! COMPARED AGAINST THE CONTENTS 
073 B5o OF THE REGISTER UNDER TEST. 
2076 a7 USED BY THE MACRO MLEE TO 
ve : 38 38 SELECT THE CURRENT REGISTERS ADDRESS. 
5079 : 860 ERR_FLG 
$081 ; ep BY REE) OF THe E CALLERS ERROR FLG TO ENABLE 
$082 ; 863 | THE CALLER TO EXAMINE STATUS 
08S : 1864 OF THE ROUTINE CALL. 
5085 ; 866 | IMPLICIT INPUTS: 
5087 ; $868! GETS LOADED WITH THE TST_PAT 
$088 ; 869 | THUS ALLOWING CALLER TO PRINT 
5089 ; 870 | THE FAILING DATA. 
5090 ; ; i 
5091 : 872} RD_DATA 
5092 ; 873! GETS LOADED WITH DATA TA READ FROM THE 
$093 ; 874 REGISTER THUS OWING CALL LER 
$094 875 | TO PRINT FAILI 
+¢+ a B77 i 
: 378 i 
: 370 i 
: aan i 
a1 
; 2 


BOP OSS SE 


— — a - 
+ 


ew wee oe - 1 - - 








1 
MACRO M1113 3O0-MAR-82 11:18 PAGE $68" 
ION SECTION 















61 : r-1982 16:23: Liss-16 V2(212) 
61 : ROUTINE DECLARATION SECTION 3 18:87:88 vee A OL A 1.4 (37) 
ei ? : if .RD_DATA neq .WT_DATA then .ERR_FLG = ONE; 'READ MLEE FOR TST_PAT 
eit§ : ‘SET THE ERROR FLAG IF NEO 

11% : 1 end: 
1 ; SBTTL ifE , ROUTINE DECLARATION SECTION 
61 7 76 RD.EE: CLR : ERR.FLG 

61 1 171 5 MOV PD ut spATA. : TST.PAT,* 

1 g 1 171 MOV GAL negra RD.DATA ; 

7 g 171 cmp ATA, WT. O5ne : 
rs 1 000001 MOV I aces : *, ERR.FLG 

61 16 1$: RTS : 
6131 : Routine 44 words 
61 ; Maximum stack ent per invocation: 0 words 


SEQ 0149 


2 
ML~11 LOGIC TEST MACRO M1113 3C-MAR-82 11:18 PAGE N67 





























CZMLADO 
RD.EE ROUTINE DECLARATION SECTION SEQ 0150 
140 ;ML4AD r=-1 16:23: corse ay nae 16 4 be et: 
614] : ROUTINE DECLARATION SECTION fe ad BS 18:57:08 >ML4AD.BL (38) 
e148 : routine WRT_D1 (TST_PAT, index) : novalue = 
144 ; begin 
6145 : 
Os : 'o4 
6147 : ' FUNCTIONAL DESCRIPTION: 
6148 : i LOADS THE DATA DIAG REG 1 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
6149 : ' FORMAL PARAMETERS 
6150 : i TST PAT 
e133 ; . CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
6153 : i USED BY THE MACRO WRT TO SELECT THE CURRENT ;REGISTERS ADDRESS, 
613% : ; FORCED HI, FORCED LO DON'T CARE MASK INFORMATION. 
$136 ; 
6157 : DAT_DM = = ONE 'SET DATA DIAG MODE 
6158 : LOT = = WRT_MASK: 'LOAD MLD1 WITH GENERATED WRT_MASK PATTERN 
61 : wR TERO. CLEAR DATA DIAG MODE 
1 v 
-SBTTL WRT.D1 ROUTINE DECLARATION SECTION 
171472 TPT REG+120 : Bt 
RO : INDEX,* 3907 
: TST.PAT.* 
171422 oREG+1 ; 3908 
$ 3892 





; Routine Size: words 
: Maximum stack ax per invocation: 3 words 


MACRO M1113 30-MAR~82 11:18 PAGE lob” | 
TION SECTION | 





r-1 16:23: 
ROUTINE DECLARATION SECTION $3-nar-} 18:37:83 
routine RD_D1 (TST_PAT, index, ERR_FLG) : novalue = 
begin 








owe) ward 


2 OB NOU WIN @O 


* 
yc 


+ FUNCTIONAL DESCRIPTION: 
COMPARES THE sitet OF THE 


DATA in tae made 
ps ha D DATA PATTERN 
NERATED BY MACRO “WRT_ 


IF = COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR _F :. IS 
sastete A ONE TO INDICATE 


IK 











“+ 
lh al ale al 






ey 


A 





5 x 








RUS 





— 


DATR PATTERN Ta NS Ogee ENTS 


OF THE REGISTER TEST. 


+4 
+4 
+4 
$4 


ya? 





INDEX 
USED id nee MACRO WRT TO 
peasee REGISTERS 


FORCED LO AND DON’T 
PORE ORC 


D BY REF) 
on ue Lens iene’ He To euaate t 
OF THE ROUTINE CAL 
| IMPLICIT INPUTS: 
SETS LOADE Ay TH Pe Pe MATED 
WRT ag PATTE ALLOWING 
CALLER TO PRINT FAILING DATA. 












FROM THE 


RD_DATA 
GETS LOADED WITH DATA ff 


REGISTER THUS ALLOWING 
TO PRINT FAILING BAD DATA. 


| IMPLICIT OUTPUTS: 
AND RD " BATA LOADER utr GOOD 
AND BAD R REGISTER DATA 






<5 


~ 
a 

o 
_ 





ML~1 
TI 


= 


1 
NE 





wr 


o — . > * . . . — . e - . 
PAR 
SSS wv 


* a) 


5369 
5271 
6555 
52764 
59 
5283 
5285 


~ oe 


ef 
Sf 





ROUTINE DECLARATION SECTION 





-ERR_FLG = ZERO: 
DAT_BM = ONE: 

me FUNC . write: 
DAT. ¢ 





if .REG_INIT_FLG IS_SET 


then 
begin 


CLR_MBUS; 
DAT_DM = ONE; 
end; 








WI_DATA = WRT_MASK; 
RD_DATA = .MLD1; 





if .RD_DATA neq .WI_DATA then .ERR_FLG = ONE 


CLR_MBUS; 
end; 


12 1$: 





DeDezeeommmm-. 





books e] 
Brent fees 
mom 





ST MACRO M1115 30-MAR-82 11:18 PAGE 169° 
ARATION SECTION 


eS ~ D1 Ssauee DECLARATION SECTION 
i 


6*120 





REG IN NIT. — 






TOPS-20 Bliss-16 V2(212) 


r-1982 16:23: 
93-Mar-19 18:57 208 PA:<NEALE>ML4AD.BLI.4 (39) 
'CLEAR ie ERROR F 


FLG 
: SET DATA DIAG MODE 
‘LOAD MLCS1 WITH WRITE FUNCTION 
'D0 A DATA CLK 


:SEE IF CALLER IS REG INIT TEST 
‘SET ERROR FLAG IF NEQ 








‘CLEAR MBUS TO GENERATE INIT DATA 


‘SAVE THE DATA WRITTEN TO THE REGISTER 
‘READ AND SAVE THE REGISTER 


: READ MLD1 FOR WRT_MASK 
'SET ERR _FLG IF NEQ 
CLEAR TRE MBUS 


ERR.FLG 


> INDEX,* 


; TST.PAT,* 


CZMLADO ML-11 LOGIC TEST 
RD.D1 ROUTINE DECLARATION SECTION 


015412 


1Fisce 17107 
191064 171060 


177 
7? 171120 
171114 





K_12 
MACRO M1113 30-MAR-82 11:18 PAGE 170 


sML4AD 


1 10 
° abe 2$: 





rds 
: : fon teu stack depth. per invocation: 


ROUTINE DECLARATION SECTION 
none —* 

OAc REGeT? 

Sat REGS 0,RD.DATA 
RD.DATA.WT.DATA 


Py Nae : *,ERR.FLG 
@ML .REG+40 








#7 aM. REG+4 
Re, @ML .REG+4 





75 wo 
3 words 


LL NEE acumen 


$o-ner} 


SEQ 0153 


37: 08 


TOPS 


PA:< . 


977 
979 


3910 


| 


| 


_—<—< 


of 





ST MACRO M1113 30-MAR-82 11:18 PAGE 71° 
-D1 ROUTINE DECLARATION SECTION SEQ 0154 


, 
- 


sone 3: TOPS-20 Bliss-16 V2(212) 
ROUTINE DECLARATION SECTION ra1982 16 $:57308 PA: <NEALE>ML4AD.BLI.4 (40) 
ae (TST_PAT, index) : novalue = 


14+ 


FUNCTIONAL DESCRIPTION: 
LOADS THE DATA DIAG REG 2 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
ees ge 


CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 


USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 






‘ ARAXAAKC FZ CPRORC 
PUB WN BODO OURS 
“S 








SSSESESEDSSSCESESE 


. a ° > . . . . * 


B 
9 : iSET DATA DIAG MODE 
50 WRT MASK; OAD MLD2 WITH GENERATED WRT_MASK PATTERN 
31 4 = ZERO; iE OBRR DATA DIAG MODE 
56 .SBTTL WRT 502 D2 ROUTINE DECLARATION SECTION 
6361 WRT.D2: JSR g 3984 
536 171160 BISB Hi; SRL REG+120 : 3998 
536 10(SP) RO : INDEX,* 3999 


REVORON 






2 
EuPSSS3o 
3 


3; TST.PAT,* 






PS YS 
HEKKE SE RSS 


aoe we a *,14#,1¢ ¢ 
UP UINI Soo nd 
SOSSSOSOSOOOOCOSCO 


0 BIC +4(R1) RO 
74 MOV #6(R1) .R2 
5 BIS R 
01 MOV @AL .REG+ 
14 171110 BICB © #10, aML.REG+120 : 4000 
14 RTS PC ; 3984 
é. 6 ; Routine Size: 26 words 
537% ; Maximum stack depth per invocation: 3 words 





ee = em eee oe 





ar ee - —s 






M_i2 
CZ ML~11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 172 
WRT.D2 ROUTINE DECLARATION SECTION SEQ 0155 
sML4AD 9-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 
; ROUTINE DECLARATION SECTION $o-mer=1983 18:37:08 PA:<NEALE>ML4AD.BLI.4 (41) 


routine RD_D2 (TST_PAT, index, ERR_FLG) : novalue = 
begin 

+4 

! FUNCTIONAL DESCRIPTION: 


COMPARE THE CONTENTS OF THE 
appt aus REGISTER 2 


se 
Sess 











PEER ARAADE 














; 
° ‘ 
; 10 } H THE MASKED DATA PATTERN 
: 1! GENERATED BY THE MACRO ‘WRT_MASK’’. 
; 1g i IF THE COMPARE IS NOT EQUAL” THEN THE 
6400 : 4013! FORMAL TER “ERR IS 
6401 : 4014 } ASSIGNED A ONE TO INDICATE THE 
6402 ; 4015 ! ‘ 
6405 : 4016 ! 
6404 : 4017 | FORMAL PARAMETERS: 
6405 : 4018 i 
6406 : 4019 i TST_PAT 
6407 : 4020 i DATA PATTERN TO BE MASKED AND 
6408 : 4021 : COMPARED AGAINST THE CONTENTS 
64 40 ; i OF THE REGISTER UNDER TEST. 
641 4023 : 
641 4024 i INDEX 
641 4025 i USED BY THE MACRO WRT TO 
641 40 6 i SELECT THE CURRENT REGISTERS ADDRESS, 
641 4027 } FORCED HI, FORCED LO AND DON'T CARE 
641 4028 i MASK INFOMATION. 
641 4029 : 
641 4030 : 
641 i 
641 i 





ERR_FLG 
4031 CONTAINS THE ADDRESS (PASSED BY REF) 
403 OF THE CALLERS ERROR FLG TO ENABLE T 
403 CALLER TO EXAMINE THE ERROR STATUS 
103e : OF THE ROUTINE CALL. 
40 : IMPLICIT INPUTS: 
: WT _DATA 


MEW OONAAPWW=OfD 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Se Be Be Be Se Se Ge Go Ge Fe Se Ge Ge Be Be Be Be Se 
= 
© 


GETS LOADED WITH THE GENERATED 
WRT DATA PATTERN THUS ALLOWING 


64 t 
64 3 
64 § 
ra 35 
o 
6 4040 CALLER TO PRINT FAILING GOOD DATA. 
6 404¢ i RD_DATA 
4043 ! GETS LOADED WITH DATA READ FROM THE 
6431 4044 ! REGISTER THUS ALLOWING CALLER 
64 4 4 TO PRINT FAILING BAD DATA. 
64 4 ! IMPLICIT OUTPUTS: 
6435 4048 i GLOBAL LOCATION WR_DATA 
64 4 AND RD_DATA LOADED WITH GOOD 
$4 4 i : AND BAD REGISTER DATA 
64 4 = 
6440 4 ¢ 


eee eee ee oe ~~ - 





CZ ML~-11 
WRT.D2 ROUTINE DECLARA 


: 


N12 
LOGIC TEST MACRO M1115 30-MAR-82 11:18 PAGE 175 
T SEQ 0156 


ION SECTION 




















6442 ;ML4AD 9-Mar-1982 16:23:04 TOPS=-20 Bliss-16 V2(212) 
ents : ROUTINE DECLARATION SECTION Soa 1388 18:57 308 PA:<NEALE>ML4AD.BLI.4 (41) 
gids : 4054 -ERR_FLG = ZERO: 'CLEAR ERROR FLAG 
6446 : 4055 DAT_DM = ONE: iSET DATA DIAG MODE 
6447 : 4 36 ML_FUNC = write: 'LOAD WRITE FUNC TO CS1 
448 4 3 DAT_CLK = ONE; | iDO A DATA CLOCK 
rect : rh if .REG_INIT_FLG IS_SET ‘SEE IF CALLER IS REG INIT TEST 
6451 : 4 then ‘CLEAR MBUS TO GENERATE INIT DATA 
6452 : 4061 begin 
a 406 SAT-DHe = ONE: 
6439 : 4064 end; : | 
or3$ : 4066 WT_DATA = WRT_MASK; ‘SAVE THE DATA WRITTEN TO THE REGISTER 
6458 : 406 RD-DATA = .MLD2; IREAD AND SAVE THE REGISTER 
6460 : 4089 if .RD_DATA neq .WI_DATA then .ERR_FLG = ONE; 'READ MLD2 FR WRT_MASK PATTERN 
6s 402s CLA PBUS: icER Mass Buse” LF NEO 
6464 : 4 8 end: | 
e469 -SBTTL RD.D2 ROUTINE DECLARATION SECTION 
6473 0244 6 004167 1 116 RD.D2: JSR R1 SSAUES : 4002 
6474 44 003076 1 LR ai0(sP) : ERR.FLG 4054 
75 024426 15 10 171070 BIS8 #10,@ML.REG+120. ; 4055 
Te Osades 15009 Sooner 1oRese BISs #61 cont Ree ' ' 
44 5 12 777 171046 BISS $50 ant REG+120 : ; 4057 
44 727 170676 000001 CMP G. INIT.FLG,41 ° 4059 
1017 BNE 
i 170750 BISB : 4061 
43 01 | : BIC R1 
4 170732 Bi¢B sf 
4 p 171000 BISB @ML .REG+120 : | 4063 
1$: MOV »,RO : INDEX,* 4066 
ASL 
4 ASL 
ASL 
4 MOV 
MOV +2(R1) RO | 
4 BIS »RO : TST.PAT,* 
BIC +4(R1)R 
MOV +6(R1).R 
BIS 











3 30-MAR-82 11:18 PAGE Ti 


MACRO M111 


ST 





ION SECTION 


~ 
Ww 
cod 
Oo 
fo] 
“ 


So 


TOPS 


PA: 





7ML4AD 


ROUTINE DECLARATION SECTION 


4067 
4069 


: *,ERR.FLG 


ro 
& 
es 
* 


spesace 
OEw 


zee8e 








meg pay tot be 
Oa@ma 








3 words 


75 words 


Maximum stack depth per invocation: 


: Routine Size 





ELLE eee 


3 
ST MACRO M1113 30-MAR-82 11:18 PAGE 75 
ION SECTION SEQ 0158 


r-19 16:89:06 TOPS-20 Bliss-16 V2(212) 





o 
. 

oO 
™~ 

















INFORMATION. 


ROUTINE DECLARATION SECTION 9-Mar-19 PA:<NEALEDML4AD.BLI.4 (42) 
4074 routine WRT_D3 (TST_PAT, index) : novalue = 
4 a begin ~ ” 
6 4 6 
4 §o¢ 
e3 4 28 =. FUNCTIONAL DESCRIPTION: 
63 1 4080 : LOADS THE DATA DIAG 
4081 | REGISTER 3 WITH A DATA PATTERN 
: 4082 | GENERATED BY THE MACRO 
4 B35 | WRT_MASK. 
: 4 § : FORMAL PARAMETERS: 
4087 } 

6539 : 4088 ! LORRENT DA DATA PATTERN TO BE 
6940 : 4089 ' LOADED IN THE REGISTER. 
a BP 
$3 409¢ i USE BY THE MACRO WRT 
: 4095 i TO SELECT THE CURRENT REGISTERS 
5545 ; 4094. | ADDRESS, FORCED HI, FORCED 

: ithe =. LO AND DON’T CARE MASK 

3 4097 | 

39 









é 4098 i= 

é $099 , sa 

: 36 4191 Ko.000377"; : MLE2 WITH GENERATED WRT_MASK PATTERN 

5554 : 41 4 100300°: REST 

$ 41 4 iCLEAR DATA DIAG MODE. 

. 20% 

55 ¢ gm WAT 323 TINE DECLARATION SECTION 

556 157670 ‘ WRT .D3: i Ht, ishvez 407% 
55 ¢ ? 000377 170966 {meer tee ; 4101 
58 10 : INDEX,* 4102 


mana 


m2 ReGrER) 0 ; TST.PAT,* 


gest +: 


81S 
BIC 





154 
1 
1 

1541 








D 13 om 
ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 176 | 
_ DECLARATION SECTION 








SEQ 0159 
— ROUTINE DECLARATION SECTION -Rar=1988 16:81:08 Pace 
; isi ; nov - ' 4103 
5 agers srPr 170636 81¢8 #10.am: Rieu. ; core 
: Routine Size: | 


words 
: Maximum stack eal per invocation: 3 words 








MACRO M1113 3O0-MAR-82 11:18 PAGE iw? 


DECLARATION SECTION SEG 0160 


PPAR ERARARRARRORARS 
od end ond od aad amd exo ed ed ed eed ed eed eed etd eed 
odd cad coed wok and eed am aod 
WONAWUSLWN=@O 


on 


wut) ad) cand cank aed cxad and ard and th ocd acd 


Wis PD 


a 


PRR HKLRLHLPLRHLALRE 
Ww 





od cord cond nd and and ed od add od eed <ecd 


SEGSERES 


HHL PRAKSE 


Ww 


PPP AS 
ne med aed wk end add mad md woe a cet 





ROUTINE DECLARATION SECTION $3-her-1983 18:37:08 PA: SNEALESAL AAD BLT us) 


routine RD_D3 (TST_PAT, index, ERR_FLG) : novalue = 
begin 


+e 
? FUNCTIONAL DESCRIPTION: 






DATA DIAG Ss Beotlberg 
GENERATED BY THE RACRO UAT ASK". 


Hatt SEAR. 


ASSIGNED A ONE TO INDICATE 
ERROR. 
















LG ged 
DATA PATTERN ner MASKED - 
OF THE REGISTER ST. 


INDEX 
USED BY THE WRT 


NDE 
TO 
faces I sae Pee 
FORCED HI. F LO AND DON'T 
MASK INFORMATION 
ERR_FLG 
CONTAINS SS (PASSED BY REF) 
Sera TA PRS ASH Rate he 
CALLER TO NE STA 
OF THE INE CALL. 
IMPLICIT INPUTS: 
TA 


ters LOADED WITH 
UR TERN 








RATED 
DATA PATI OWING 
ER TO PRINT FAILING ATA. 





errs. OADED WITH DATA READ FROM THE 
REGISTER THUS bag oe CALLER 
TO PRINT FAILING BAD DATA. 





; NN, ee 


F_13 
ML~11 LOGIC TEST MACRO M1115 S3O0-MAR-S2 11:18 PAGE 178 
ROUTINE DECLARATION SECTION SEQ 0161 


sMLSAD 1 16:23: TOPS-20 Bliss-16 V2(212) 
; ROUTINE DECLARATION SECTION $3-ner-1983 18:31:08 PA:<NEALESML4AD.BLI.4 (43) 






C 
WRT .D 


















: 41 
: 4126 .ERR_FLG = : ‘CLEAR ERROR FLAG 

; 41 LE “= 40" 600377': ‘SET DATA DIAG MODE 

; 41 PL = write: ‘LOAD WRITE FUNCTION TO MLCS1? 

: 41 DAT_CLK = ONE; iDO A DATA CLOCK 

: 4165 if .REG_INIT_FLG IS_SET 'SEE IF CALLER IS REG INIT TEST 

: 41 then ~ ICLEAR MBUS TO GENERATE INIT DATA 
: 41 

: 41 

a 

; 41 UT_DATA = WRT : 'SAVE THE DATA WRITTEN TO THE REGISTER 
; 41 3 RD-DATA = .MLE2 or . IGNORE: 'READ AND SAVE THE REGISTER 

: cis if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 'READ THE REG FOR WRT_MASK 
: 41 MLE2 = %0°100300': 

; 41 CLA ABU: ‘CLEAR THE MASS BUS 












sgerme RD. INE DECLARATION SECTION 
RD.D3: J R1 $ £106 
») : ERR.FLG 4159 
§6 ; 4160 
5 4161 
3 4162 
1 


33 
Se Se 
** 
On 


Be 
& 
«wt 
o 
~ 


wl | 
cB m 3 4169 
3; INDEX,* 4192 


oR1 
eREG+2(R1) ,RO 
TatSP). ; TST.PAT,* 
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ROUTINE DECLARATION SECTION 





a oe 
seaeerecueecenrae 


SPMLGAD 











me) ee me ee ee Te | eT ee ce 


Ce FE GS 
4+ 4+-4+-4+-4, 444 
EONIO Pata rattatya +h CCU VO 


Oe ae ew i ale) ele) @ @ lel ae’ e!lae'*«e 


seerereees 
SES SSEEE ee eR 








: 86 words 
stack depth per invocation 
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Ss SE eee ee 
SE TT RT tt mg 
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CZMLADO ML=11 LOGIC TEST © MACRO MIT13 SO-MAR-82 11:18 PAGE 1 180 en 
ef pes ROUTINE DECLARATION SECTION Soar= 1988 16:53:08 PAT <NEALESALEAD BLT f 46) , 
| 


ae 
ed ed ad ed 


routine WRT_DS (TST_PAT., index) : novalue = 
begin 
'¢¢ 


ee aay my ROUT! 
or, 
DATA PATTERN T0 BE 


oer p AGAINST T “ine Cont ENTS 


INDEX 
USED BY THE MACRO WRT TO 
SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


awew—-e- ee. 





PTION: 
CALL TO IST IN THE READ 
R ALGORIT 













— ae ey 


— oy 











et ed ed ed eed ed ed ed eed ed 
ARGV LS SRVEAR IOS 





! DRIVE STATUS REG IS READ ONLY 
ret urn. 





PEER AREPE REPRO EE 





ooo 


-SBTTL WRT.DS ROUTINE DECLARATION —— 
WRT.DS: RTS PC 4180 


; Routine Size: word 
: Maximum stack depth per invocation: 0 words 
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WN OOONAOUSLWIN=O 
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Sad woe a Soe tan Mot 
>. Ww 


“. 


SOS NOUR =O 


oe 
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11 LOGIC TEST 
WRT.DS ROUTINE DECLARAT 


MACRO M1113 3SO-MAR-82 11:18 PAGE isi” 


ON SECTION 


ROUTINE DECLARATION SECTION 


routine RD_DS (TST_PAT, index, ERR_FLG) 
begin 






+e 
; FUNCTIONAL DESCRIPTION: 





SSRIS CIO hl 
D thee Pm A . 
GENE BY THE MACRO ‘WRT_MASK’. 
IF THE COMPARE IS NOT EQUAL THEN 
Sirs ox set tie 





FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED NST CONT ors 
OF THE REGIS TEST. 


INDEX 
USED BY THE MACRO WRT TO 
Pea 


SELECT THE 
ERR_FLG 

CONTAINS Ss < BY REF) 
OF THE eine GTO EMBLE THE 
CALLER TO EXAMINE ERROR STA 


S 
FORCED HI, F LO AND 
eg 
OF CALL. 




















IMPLICIT INPUTS: 
WT _DATA 


GETS LOADED WITH THE 


eocete 
WRT DATA PATTERN ALLOWING 
CALLER TO PRINT FAILING GOOD DATA. 






D WITH DATA READ FROM THE 
LOWING CALLER 


RD_DATA 
GETS L 
REGIS 

BAD DATA. 


ER 
TO PRINT FAILI 





IMPLICIT OUTPUTS: 


AND a DATA LOADED~ut th GOOD 
AND BAD REGISTER DATA 





Liss-16 V2(212) 
>MLGAD.BLI.4 (45) 





: novalue = 


eee 


SEQ 0164 


——— oe 


3 
CZMLADO ML-11 LOGIC TEST MACRO M1113 SO-MAR-82 11:18 PAGE 1a) 
WRT.DS ROUTINE DECLARATION SECTION 


sMLSAD r-1 16:23: TOPS-20 Bliss-16 V2(212) 
ROUTINE DECLARATION SECTION r-19 18:57:03 PA: <NEALE>ML4AD.BLI.4 (45) 


















3 UT DATA = wai ar Ra iSAVE THE DATA DATA * ITTEN TO THE REGISTER 
2 RD-DATA = “aL S or * IGNORE: 'READ AND SAVE THE REGISTER 

: 2 if .WI_DATA neq .RD_DATA then .ERR_FLG = ONE; !READ THE REG FOR WRT_MASK 

: 4265 'SET ERROR FLAG IF NEQ 

: 4 end; 


TINE DECLARATION SECTION 


“4 
ad 
| od 





$0018 RD.DS: 
1 


See 
33 
= 


; TST.PAT,* 


Sasso e pee sis 


oO 
“ “ 


: 
3 


: *,ERR.FLG 


woe 
‘te 
oy 

Pr) 
” 


3 Routine Size: 
: Max stack a= invocation: 3 words 


SEQ 0165 


| 
4261 


333 


4265 


4206 


k 13 
CZMLADO ML-11 LOGIC TEST MACRO M1113 SO-MAR-82 11:18 PAGE iss 
RD.DS ROUTINE DECLARATION SECTION 


3ML4AD r-1 3: 
= ROUTINE DECLARATION SECTION r-19 18:33 03 PA:<NEALE>ML4AD.6L1.4 (46) 





19 TOPS-20 Bliss-16 V2(212) 
































895 : 4267 routine WRT_REG (TST_PAT, REG.SEL, index) : novalue = 

* . ; o 2 . : begin 

9898 4370 i FUNCTIONAL DESCRIPTION: 

$900 : 4272 A ROUTINE TO SELECTIVELY 

$902 ; 4274 | WRITE. TO INDIVIDUAL AL1? 

5903 ; 4 23 REGISTERS 

$508 : 4 7 . FORMAL PARAMETERS: 
; 4 i CASE SELECT T EXPRESSION T T0 
: 4280 | SELECT THE WRITE REGISTER 
: 4281 ! ROUTINE TO CALLED 

e911 ra 

912 : 4284 ! DATA. PATTERN WHICH THE SELECTED 

691 33 4 5} REGISTER WILL BE TESTED AGAINST 

6915 : 4287 i INDEX 

6916 : 4288 ! LOADED WITH THE ML_REG I 

691 : 4289 | SELECT NUMBER OF TRE REGIS STER 

18 : 4290 | BEING TESTED 

6919 ; 4291 |! 
: 4 qi i SIDE EFFECTS: 

69 1: 4 3 WHEN A A WRITE RE STER "non 1S 1S CALLED 

69 g 4295} rest Is 1S CoabeD WIth REGISTERS 

005 re a 

6926 ; 4298 } THIS ENABLES THE ING TEST TO FIND 

6927 : 4299} THE FAILI DYE causing 1 

63 : 630) inn 

pH ; e308 cane nae from 0 to 13 of ‘SELECT THE WRITE REGISTER ROUTINE CALL 

ou: 2303 03 : 

ep 5: 43¢ WRT_CS1 (.TST_PAT, .index = 0): 'CALL ROUTINE TO LOAD MLCS1 
; 4305 (1) : 

69 : 4 10 WRT_ER (.TST_PAT, .index = 6): 'CALL ROUTINE TO LOAD MLER 
; 431 [2] : 

st : 4 18 WRT_DA (.TST_PAT, .index = 3); 'CALL ROUTINE TO LOAD MLDA 
: 4315 (3) : 

6948 : 4 16 WRT_MR (.TST_PAT, .index = 10); 'CALL ROUTINE TO LOAD MLAR 

6946 : 4318 [4]: 


- 


CZMLADO ML~11 L 
RD.DS ROUTINE DECLARATION SECTION 


os sML4AD 


: 


BREE S: 


Be Ge Ge Se Se Ge Be Ge Ge Se Be Oe Se Se Be te Ge ee Se Se Ge Se Se Se Se Se @e Pe Se ee Ge 


3 


DSOOSO 
33333 


AAO 
Wwe 


SSesalesises 


PERSE ISIS rana TD 


MUMIA 
Pot 


VIM 


.~ 


LOGIC TEST 


CONQAUSWIN— 


Wwro— 


ot et et tet et at et et at ot at eee 





MACRO M1115 3O-MAR-82 11:18 PAGE ies 








SEQ 0167 
r-1982 16:23: TOPS-20 Bliss-16 vacate? 
ROUTINE DECLARATION SECTION $3-ner=19 18:57:98 PA:<NEALE>ML4AD.BLI.4 (46) 
WRT_E1 (.TST_PAT, .index = 13); CALL ROUTINE TO LOAD MLEi 
C5] : 
WRT_E2 (.TST_PAT, .index = 14); !CALL ROUTINE TO LOAD MLE2 
[6] : 
WRT_PA (.TST_PAT, .index = 8); CALL ROUTINE TO LOAD MLPA 
{7] : 
WRT_PD (.TST_PAT, .index = 19); !'CALL ROUTINE TO LOAD MLPD 
(8] : 
WRT_EE (.TST_PAT, .index = 17); !CALL ROUTINE TO LOAD MLEE 
[9] : 
WRT_EL (.TST_PAT, .index = 18); 'CALL ROUTINE TO LOAD MLEL 
[10] : 
WRT_DS (.TST_PAT, index = 5); 'CALL ROUTINE TO LOAD MLDS 
(11) : 
WRT_D1 (.TST_PAT, .index = 15); CALL ROUTINE TO LOAD MLD1 
[12] : 
WRT_D2 (.TST_PAT, .index = 16); 'CALL ROUTINE TO LOAD MLD2 
(13) : 3 
WRT_D3 (.TST_PAT, .index = 14); CALL ROUTINE TO LOAD MLE2 
es; 
end; 
-SBTTL WRT.REG ROUTINE DECLARATION SECTION 
WRT .REG: JSR RI SSAVEe Z 4267 
MOV 10(SP) , ; INDEX,* 4307 
MOV 14(SP) ,R1 : TST.PAT,* 
MOV 12(SP) .R2 : REG.SEL,* 4303 
ASL Rt 
ADD 1 (he) .PC 
1$: - WORD 1 
- WORD 1$ 
- WORD : 1$ 
WORD zs 
- WORD -1 
- WORD 1$ 
eWORD 8$-1$ 


Se 


5 
—4 
& 

xz 
m 
oa 


unas 


NP NTT TT tt oet int tivtintovtist etintivtortoxtivtovtovtostatiets 


ae 
es 


OROF 


= 


125 


ose TEST 









pert = 
= RS 
oon 


SUSE 


~ 
cack 
f  ] 


ce 


a eel 
ant GY ad 
& 


=: 


ss 


Jno 


const 
ware 


ond acd ye od and and C9 OD od awd aed 


=i cred rend ={= 


Bo eet te Sa eet Pe 


7 


a 
ol 


& 
Ro 


174272 


000006 
174432 


000003 
174572 


000012 
174732 


000015 
175300 


000016 
175470 


000010 
175036 


000023 
175666 


000021 
176156 


a 
MACRO M1113 30-MAR-82 11:1 
rio SECTItg 82 8 PAGE 185 


sML4AD 


2s: 


3$: 


4$: 


5$: 


10$: 





a 
=] 


yee ey SeS tS ZSSSS 5 SSS2 4 SSS GSES CESS ESSE ECC 
95588 SSS y SSS 2B SSSS 5 SSSS4SSSS SSS SREsqCL3 


13 


ROUTINE DECLARATION SECTION 





53-me 


r-19 
r-1 


16:3 


SEQ 0168 


3:04 
1:03 


TOPS 
PA:< 


4303 


; 
' 
| 


N 13 





T MACRO M1113 30-MAR-82 11:18 PAGE 186 
TION SECTION SEQ 0169 
sML4AD al | TOPS 
: ROUTINE DECLARATION SECTION a a 16:57.05 :03 = PA:< 
025¢ 11$: MOV R1,-(SP) F 4334 
1256 000022 MOV 22, (RO) 
PL? MOV (ROS ,-(SP) 
125¢ 176076 JSR C WRT. 
See 12$: MOV Rl .=(SP) ; 4337 
1556 —— MOV ROS (sp) 
125630 177360 JSR C,WRT. ais 
155636 13$: MOV R1,-(SP) : 
1256 000017 MOV 17, (RO) —_ 
0256 MOV (ROS ,=(SP) 
125646 176146 JSR C WRT. 6303 
a A564 14$: MOV R1,-(SP) : é 
gs Ssaees Sietis coon mys be 
B1 02566 176442 JSR PC WRT .D2 oe 
Be 096¢ 15$: MOV af -(SP) ; 
84 0256 000016 MOV #16, (RO) — 
RE MOV (ROS ,=(SP) 
86 ( 176736 JSR T.D3 
R7 16$: CMP (SP)+, (SP+ : 4268 
J88 C RTS 5 4267 





; Routine Size: 123 wo 
> Maximum stack depth p a Shiites 5 words 





& 
ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE Fa? 


CZMLADO L : 

WRT.REG ROUTINE DECLARATION SECTION SEQ 0170 
sML4SAD r-1982 16:23: TOPS=- iss- 
- ROUTINE DECLARATION SECTION 3 a ad 18:53:08 ERr MEAL Eson tan aes faa?) 


— jRD.REG (TST_PAT, REG_SEL, ERR_FLG) : novalue = 


Woo 


> > me | 
aseorerasess 
Py oe 


CONAULWN—O 


sora 
“a: Pe 
eas eet et eae 


coed coud coed werd ond nb ed 
Wa 


NOON 








6 
568 
+t: 
¥1 
71 
rf ¢ 
4 


SINIAVVIVVAVIVAYYIAAAAIIIIVY 





3 
& T 
REGISTER WILL GE TESTED AGAINST 
7130 : case -REG_SEL from 0 to 13 of ISELECT THE READ REGISTER ROUTINE CALL 

(97 RO_CS1 (.TST_PAT, 0, -ERR_FLG);  !CALL ROUTINE TO READ MLCS1 
3s 17 ADLER (.TSTPAT, 6, .ERR_FLG); _!CALL ROUTINE TO READ MLER 
rf 2 RO_DA (.TST_PAT. 3. -ERR_FLG); 'CALL ROUTINE TO READ MLDA 
9 (3) 


RD_MR (.TST_PAT, 10, .ERR_FLG); !CALL ROUTINE TO READ MLAR 


WIND 


(4] : 
RD_E1 (.TST_PAT, 13, .ERR_FLG); 'CALL ROUTINE TO READ MLE1 


CSBVOURGOLS 


& 
4 
4 
4 
4 
% 
4 
& 
& 
& 
4 
4 
4 
4 
& 
4 
6 
4: 
4 
iv 
4 
4 
& 
4 
4 
4 
4 
4 
4 
4 
4 
& 
4 
4 
by 
fe 
4 
4 
é 
& 
4 





VIYVIYNYY IY 


5] : 

RD_E2 (.TST_PAT, 14, .ERR_FLG); 'CALL ROUTINE TO READ MLE2 
{6] : 

RD_PA (.TST_PAT, 8, .ERR_FLG): 'CALL ROUTINE TO READ MLPA 


£5 
ss 


Ww 





4 
CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE iss 
WRT.REG ROUTINE DECLARATION SECTION 





















SEQ 0171 
7155 ;ML4AD r-1982 16:23: TOPS-20 Bliss=-16 V2(212) 
a : ROUTINE DECLARATION SECTION sone arn19 18:57:98 PA:<NEALEDML4AD.BL1.4 (47) 
7158 ;: 44 . {7] : 
a 59 : 4 RD_PD (.TST_PAT, 19, .ERR_FLG): 'CALL ROUTINE TO READ MLPD 
7161 : 4405 (8) : 
7162 : 44 RD_EE (.TST_PAT, 17, .ERR_FLG): !CALL ROUTINE TO READ MLEE 
wee: te 93 
He : 4409 RD_EL (.TST_PAT, 18, .ERR_FLG); !CALL ROUTINE TO READ MLEL 
7167 : 4411 (10) : 
a ; sie RD_DS (.TST_PAT, 5, .ERR_FLG): 'CALL ROUTINE TO READ MLDS 
7170 : 4414 (11) : 
7171 : 4415 RD_D1 (.TST_PAT, 15, .ERR_FLG);: !CALL ROUTINE TO READ MLD1 
a78 ree [12] : 
ate! : 4418 RD_D2 (.TST_PAT, 16, .ERR_FLG): ‘CALL ROUTINE TO READ MLD2 
2176 : 44 (13) : | 
al : 44 1 RD_D3 (.TST_PAT, 14, .ERR_FLG); 'CALL ROUTINE TO READ MLE2 
ate : 44 ¢ g 
a : 4424 _~— end; ) 
7185 $8 TINE DECLARATION SECTION 
7189 ( 1 : RD.REG: JSR ; 4350 
a 1 MOV : ERR.FLG, 4382 
2! 14 MOV ; TST.PAT, 
7194 025736 025740 ADD 
7195 Oz 1$: - WORD 
Ab. 25 - WORD 
95746 “WORD 
4¢ tt a4 
st “WORD 
095762 “NORD 
155 766 aonb 
peor et - WORD 
05 23: fe : 4382 








MACRO M1113 SO-MAR-82 11:18 PAGE fap 
































T : 
ION SECTION SEQ 0172 
:MLGAD 39-Mer-1 16:23:04 TOPS | 
: ROUTINE DECLARATION SECTION r-1982 16:21:03 PA:< | 
CLR -(SP) 
MOV RO,-(SP) 
173754 Jsr pC CSI ais 
000006 ae hears ; — 
MOV RO =CaP> 
176114 JSR PC_RD.ER 
BR 1 ; 4378 
4$: MOV r1,-(SP) ; 4388 
000003 MOV #3.-(SP) 
MOV —s_- RO. = (SP) 
1742546 JSR RD.DA 
5$: ROV (SP) : sae8 
000012 ; MOV SP) . 
MOV ; 
17446146 JSR PC-RD 
BR 3 4378 
6$: MOV 5 4394 
— MOV sp) 
174776 JSR E1 
BR 4378 
7$: MOV (SP) ° 4397 
— MOV ise). 
175200 JSR RD.E2 
8s: oY SP) : prt 
000010 : MOV 10,-(SP) : 
MOV RO,-(SP) 
174534 JSR PC-RD.PA 
13¢ 98: OV hieaCSP) : 
| 000023 i MOV #25, -(SP) : 
ye MOY o7 (SP) 
026144 175406 JSR yeni 
026152 108: MOV RT, =( SP) ; 
126 16. 175572 JSR PCD. EE 
517% 11$: MOV (SP) : 
— MOV (sb). 
175512 JSR ~EL 
12$: MOV ~(SP) : 
000005 MOV -(SP) 
MOV RO.-(SP) 





CZMLADO 
G 





LOGIC TEST 
CLARATION SECTION 








4425 !<BLF/PAGE> 


sMLSAD 
ie 
138: OV 
nov 
J 
SR 
148: BOY 
MOV 
OY 
- 
15$: SOy 
ROY 
aSR 
168: ADD 
RTS 
3 Routine S$ 
Ps S 








i 
t 


MACRO M1115 SO-MAR-82 11:18 PAGE i9d” 


ROUTINE DECLARATION SECTION 





ze: 124 words 
ack depth per invocation: 


6 words 








SEQ 0173 

I SESS 
Ht 

Ht 


4378 
4421 


4380 


) 
| 
; 





eee ee, 


F 14 | 
T MACRO M1113 3O-MAR-82 11:18 PAGE ‘91 | 
ION SECTION SEQ 0174 | 











ML~11 LOGIC TE 


CZ7MLADO $s 
RD.REG ROUTINE DECLARAT 












> sMLGAD 1 16:23: TOPS-20 Bliss-16 V2(212) 
; ROUTINE DECLARATION SECTION Sonar -1965 16:57:03 PA:<NEALE>ML4AD.BLI.4 (48) 
5 ah : 
3 4G ' 
- 44 BGNMSG (DUMPER): 

-SBTTL DUMPER ROUTINE DECLARATION SECTION 
036306 194693 000004 DUMPER: : JSR -MSDUMPER 3 4428 

Ri mF 
3 


é 3; Routine Size: 4 words 
é : Maximum stack depth per invocation: 0 words 


FUNCTIONAL DESCRIPTION 

UPON COMPLETION OF ERROR MESSAGES 
DUMP OUT ALL PERTINENT DRIVE AND 
RH REGISTERS 










é ‘PRINT REGISTER 
‘PRINT DUMPER C NGS 
MALCS1, .MLCS !PRINT OUT THE ISTER CONTENTS 






1); 
pass: 








SaaS SS SSIS SSS 


if .LST_DUT_REG eqt 21 ‘SEE IF THIS IS A_RH7 
then ‘IF YES THEN PRINT RH70 REGISTERS 


. 
’ 
Se eee 





* 
T MACRO M1113 30-MAR-82 11:18 PAGE 993 
ION SECTION SEQ 0175 


16:23: TOPS-20 Bliss-16 V2(212) 
16:37:08 PA: <NEALE>ML GAD .Bi1.4 (48) 






r-1 
r-1 





ROUTINE DECLARATION SECTION 


in 
Ale (FATI26, REGIST. MLCSS, “ALCS; 











-SBTTL MSDUMPER ROUTINE DECLARATION SECTION 












MSDUMPER: 
000001 154064 BIT #1,REGDMP : 4637 
BNE 1$ 
12104 1$ Rov PbHR 14,-(SP) 4440 
018240 ; MOV FMT ,-(SP) . 
MOV #2,-(SP) 
MOV RO 3 SP,* 
TRAP 
booces mov 6661 
ROY 
MOY 3; SP,* 
TRAP 
16 ROY J 4442 
) my 
ROY 
ROY - SPs 
TRAP rar 
fe0y 5 4443 
ROY 
BOV 
MOY 
iam ‘ 
} 1 760 MOV : 44h 
De 1 MOV 
my 
i MOV 
”” mov : SP,* 
7408 1667: ROY : 4445 
74 16g78e MOY | 


| 
| 





PAs 
4446 
4447 
4448 
4449 
4450 
4451 
4452 


SEQ 0176 








a; a a a: a e a: 

ES 

S 

S ns 

2 oF 

2 oa AS 

i ey wt. Ort 
3 ges Me ee Sik: S eit: Z 


cattieistiiiiieiaaieaii teins 





H 14 
S0-MAR-82 11:18 PAGE 193 


PLSAD 





a) 
ape 
- *e 
= 
© % 
Coed 
=- 
Y 
“ 
5 & SS oes cj bic hiss sak ae 
33 “Ooo 
Mae 
= SA 
3° SosSSsse aan SoosSSe SossSSSe sees 
=!) 
Soe ee te OE r. 
Oh oO ORK! or ~ LRA 
> eve UMVEUCUCNS wee iCuC imucue CUCU io UCUA 


SOOO OOO OOOO OOS Oeeeneeeaeee 


NS SS 






















on 
14 
| TEST MACRO M1113 30-MAR-82 11:18 PAGE J94 
| LARATION SECTION 
sPLGAD 
: ROUTINE DECLARATION SECTION 
MOV 
TRAP 
x MOV 
166614 MOV 
MOV 
1 MOV 
MOV 
MOV 
TRAP 
i my 
166570 MOV 
MOV 
1 MOV 
MOV 
Te 
166276 000025 cw 
1 MOV -REG+240,-(SP) 
1 35 MOV RE ose0° =(SP) 
MOV -20,-(SP) 
1014 MOV -24,~(SP) 
MOV re 5 
TRAP 4 
Pre BY 3} 
$ MOV mic Sp) 
1014 MOV 
ROV #4, RO 
MOY ve 
Ha i SP 
sees GIs, HR 
RTS 
; Rout ne Size: 210 words | 
; Maximum stack depth per invocation: 52 words 











SEQ 0177 | 

a 16:23:04 TOPS 
r-1982 16:21:03 PA:< 

SP ,* 
4453 

SP ,* 
44654 

SP ,* 
4456 
4459 

SP,* 
4460 

SP,* 
4458 
4439 
4428 


= 


DIANA AD AIAN ASLO 


BONA RUN OO 


CZMLADO ML-11 LOGIC TEST 
MSDUMPER ROUTINE DECLARATION SECTION 


sALGAD 


SANISS 


REEEREE 


BEERS 


SSAVON 


BHR 
FAN 


PALL KE 


VINA 
salt rath a meat meds 


J 14 
MACRO M1113 30-MAR-82 11:18 PAGE 193 


ROUTINE DECLARATION SECTION 
re ee (SIZE, DST, SRC) : novalue = 
n 






THIS ROUTINE WHEN CALLED WILL PERFORM 
CHECK TRANSFER TO THE REQUESTED 
CE ADDRESS OF LENGTH 


MASS BUS WRITE 





ARAME TERS 
IZE: 









r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
fae it 16:57:08 PA: <NEALE>ML4AD.BLI.4 (49) 


TERS: 
DETERMINES THE NUMBER OF WORDS TO 
TRANSFER TO THE DESTINATION ADRS. 


DETERMINES THE DESTINATION ADRS OF 
TRANSFER. 


SRC: DETERMINES THE SOURCE ADRS OF THE 
TRANSFER. 





CS] = 
if (.SC) and ( not .WCE) 

then tn 

PRADE (148, INTER, R): 
PRINTS (ONE_FMT, UC_ERR): 
DODU (.ML_LON); 

DOCLN; 












” 0 

until .DRY; 

if (.SC) and ( not .WCE) 
then 





PRINTB (ONE_FMT, WC_ERR); 
DODU (.ML_LOND ; 





in 
PRRDF (148, INTER, DUMPER); 


-CLEAR THE MASS BUS BEFORE WE START 


i DISABLE ERROR CORRECTION 






'MAKE THE TRANSFER STAY ON ONE BUS ADRS 
‘LOAD T R 

' C OF THE 

‘LOAD THE WRITE CHECK FUNCTION INTO CS1 
!DID LOADING THE FUNCTION CAUSE A SC ERROR 
‘REPORT THE ERROR TO OPERATOR 

'TELL WHAT THE ERROR IS 

: HE UNIT 

‘EXIT THE PROG 


!DO NOTHING 
‘UNTIL THE DRIVE IS READY 

!DID THE SC BIT SET DURING THE XFER 
‘REPORT THE ERROR TO OPERATOR 

'TELL WHAT THE ERROR 1S 

iDROP T 
iEXIT T 









K 14 
CZMLADO ML-11 LOGIC TEST MACRO M1113 3O-MAR-82 11:18 PAGE 196 



































| 
| MSDUMPER ROUTINE DECLARATION SECTION SEQ 0179 
sML4AD 9-Mar-1982 16:23: TOPS=20 Bliss-16 V2(212) 
Br : ROUTINE DECLARATION SECTION $3-nar-19 18:37:98 PA:<NEALE>ML4AD.BLI.4 (49) 
Le: : 4518 end; ) 
~SBTTL_ WRT.CHK.TRANSFE ROUTINE DECLARATION SECTION 
127156 WRT. CHK. TRANSFE: 
1 zi 15 777 B1SB -REG*40 F 4467 
e170 S4gr09 SIC, 
927202 150077 B1SB 
de % 1 BISB # : 4489 
027214 152777 BIS8 ff : 4490 
iy x 77 MOV 6(SP) : SIZE,* 4491 
9272 3C 77 MOV 4(SP : DST,* 449 
94 057936 77 MOV 2(SP 3 SRC,* 449 
95 02726 1 MOV #51, : 4494 
i 777 ist aril .REG : 4496 
027260 BIT #40000, @ML.REG+40 
127266 10ge BNE iF 
De TRAP 5 : 4499 
224 eWORD 224 
i ¢ 6 13114 WORD 
7604 027300 01 00565 nov ; 4500 
de 04 012746 01024 MOV 
FeO? 07814 010606 mov : SP, 
127316 losaie TRAP tS 
7609 02732C 700 166504 MOV : 4501 
7610 027324 j TRAP 
rel) erase WD 86, SP 4698 
18 27334 1 506 166114 1$ TST8 © AMAL. REG+50 : 4507 
15 de “it 353 166036 rs! REG : 4509 
617 de 3 040000 166066 BIT #40000, aML .REG+40 
7619 de Are me 2, ; 4512 
02736 - WORD INTER 
92737 52 MOV #WC.ERR,-(SP) : 4513 
$ 097400 00002 ROY ae=iSP) 
iy ibe MOV SP-RO : SP,* 











sMLGAD 


TRAP 


MOV 
TRAP 
TRAP 


ADD 
23: RTS 


Routine Size: 


30-MAR-82 11:18 PAGE bop 





SEQ 0180 | 


= 16: 3: 04 TOPS 
16:21:03 PA:< | 





ROUTINE DECLARATION SECTION 
ML.LUN,RO 3 4514 
#6,SP ; 4511 

: 4466 


84 words 


> Maximus stack depth per invocation: 3 words 


M14 
CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 198 
WRT.CHK.TRANSFE ROUTINE DECLARATION SECTION SEG 0181 


7647 ;ML4AD te 3: am hs Beas tan’ v2(212) 
- ROUTINE DECLARATION SECTION ra198 16 33:03 PA:<NEALE>ML4AD.BLI.4 (50) 





19 non (SIZE, DST. SRC) : novalue = 
n 


+ 
+ 


FUNCTIONAL DESCRIPTION 

Me HIS ROUTINE WHEN CALLED WILL PERFORM 
SeeTiMAT Ge hak cuumteran T 
DESTINATION AND SOURCE ADDRESSES OF 
LENGTH ‘SIZE’. 







NOUS UWIN 









Po ot ot ot ot ot ot oo 
UU Aan aaa nannnonen 








7660 : FORMAL PARAMETERS: 
766) : SIZE: DETERMINES. THE NUMBER OF WORDS 
7663 : j DST: DETERMINES THE DESTINATION ADRS 
7664 ; 4 OF T F 
7665 : 4 SRC: DETERMINES THE SOURCE ADRS OF THE 
7666 : 4535 TRANSFER. 
ren i a 
7689 : 4 CLR_MBUS ; - ICLEAR THE MASS BUS BEFORE WE START 
7670 : 4 BAI" = ‘FORCE THE TRANSFER TO STAY ON ONE BUS ADRS 
7671 : 4540 MLWC = "SIZE: 'LOAD THE WORD SIZE 
7672 : 4541 MLDA = .DST; iLOAD THE DESTINATION ADRS 
7673 : 454 SRC: iLOAD T ADRS 
67% : 4943 MLCS1 = write: LOAD THE FUNCTION INTO CS1 
2676 : 4545 if .SCc !DID LOADING THE FUNCTION CAUSE AN SC ERROR 
Um Ci 
679 : 4548 ERRDF (148 INTER.  DURPER); IREPORT THE ERROR 
; 4549 PRINTB cone fit. ‘TELL WHAT THE ERROR IS 
; 4550 DODU (.ML iDROP THE UNIT 
7682 : 4551 DOCLN: iEXIT THE PROGRAM 
f 5 $226 end: 
f 5: 4354 do P !DO NOTHING 
: 438 until .DRY: iUNTIL THE DRIVE IS READY 
: 4558 if .SC 'DID SC ERROR SET DURING THE TRANSFER 
3 4559 then , 
; 4560 begin 
7692 : 4561 ERRDF (148, INTER, DUMPER); IREPORT THE ERORR 
7 93 : 496¢ PRINTB CONE FAT , WERR); ‘TELL WHAT unit ERROR IS 
95 : 4564 D0 ICUNS se iEXIT THE PROGRAM 
oe : rior end: 
38 : 4208 end; 
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-TRANSFE ROUTINE DECLARATION SECTION SEO 0182 | 
sMLGAD 9-Mar-1 16:23:04 TOPS 
: ROUTINE DECLARATION SECTION a a 16:57 .98 PA:< 

_ WRT. TRANSFER ROUTINE DECLARATION SECTION 

4 166010 #40,aML.REG+40 : 4520 

' y 1 

0274 ; 165772 

27456 $6 1657 ; 4539 

127466 77 1657 : SIZE,* 4540 

1274 77 165 : DST,* 4541 

127500 77 2 16571 : SRC,* 454 

057506 1 16567 454 

027514 777 16 Ist : 4545 

; g¢ TRAP ; 4548 

2 24 . WORD 

ets 03 “WORD 

1275 32 005722 MOV : 4549 

127536 012746 01024 MOV 

57823 O1dP6 ODdOS MOY 

eat 1 MOV : SP,* 

12755¢ TRAP 

1275 016 166252 MOV : : 4550 

‘ ‘ Honk TRAP | 

127562 06 706 900006 . ADD #6.SP : 4547 

027566 1 16 1$: TST8 aL. REG+50 ° 4556 

; 100373  BPL 1$ , 

iT) 165604 TST : 4558 

‘ rt! 44) 4 BPL 

, 502 104 TRAP : 4561 

’ Af 000224 ~WORD 

$ $06 7 bi 3 “WORD 

e76ie ¢ é 5722 MOV : 4562 

Brass Sianee $8568 my 

if Poet ' 4 if t 2 s SP,* 

127632 016700 166172 MOV : 4563 

' 4? ‘ TRAP 

127640 1¢ TRAP 

D276 0162706 000006 ADD : 4 

iY rf 0002¢ 2$: RTS : 4519 


: Routine Size: 73 words 
; Maximum stack depth per invocation: 3 words 


8 {5 | 
Ic TEST mecee M1113 3O-MAR-82 11:18 P 
INE DECLARATION SECTION _ 


DE SEO 0183 
sMLSAD 1 
: ROUTINE DECLARATION SECTION ra19BS ecstios | aOR 


4568 !<BLF/PAGE> 








WRT. TRANSFER 
770 sML4AD 
7771 : 








TPRRCP RRP nr CNSR AT RSRASRR 





CZMLADO ML-11 LOGIC TEST 
ROUTINE DECLARATION SECTION 
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INITIALIZATION CODE SECTION 
Zsbttl "INITIALIZATION CODE SECTION’ 


‘ 
BGNINIT: 










INITIALIZATI 1S 

P UP_HA 

¢ RESTART 
GPHARD' 
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SEQ 0184 






TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BL1.4 (52) 


53-Mar-1969 16:91:08 


NNING OF EACH 
OR WHEN THE 





E 
OR CONTINUE C ' 
MACRO IS USED TO GET 
THE LOGICAL UNIT UNDER TEST. THE 


LABLE FOR TESTING IS CONTAINED IN A 
"LSUNIT"). 
local 
OFFSET; 
external 
LSUNIT; 
if not READEF (EF _CONTINUE) 'SKIP INIT CODE IF CONTINUE 
begin !START GPHARDS AT LUN 0 AND LOAD "ML_REG* 
if READEF (EF_START) ‘SEE IF THIS IS THE VERY FIRST PASS 
begin 'THIS IS CATEGORY 1 CODE 
ML_LUN = =1; 
DROP_CNT = ZERO; ‘CLEAR THE PASS COUNTER 
begin 7 
ML_LUN = .ML_LUN ¢ 1; !INCREMENT LOGICAL UNIT NUMBER 
if .ML_LUN geq .LSUNIT then DOCLN; !START OVER IF ALL UNITS HAVE BEEN TESTED 
until CGPHARD (.ML_LUN, PTBL_PTR)) neq 0: ‘REPEAT THE GPHARD UNTIL A 0 IS RETURNED 
RH_ADD ds 'GET BASE RH ADDRESS FOR THIS UNIT 
); ‘GET RH TYPE FOR THIS UNIT 
): ‘GET RH VECTOR FOR THIS UNIT 
‘INIT OFF SET COUNT 
iner C€ NT from 0 to 21 do LOAD THE REGISTER ADDRESS FOR THIS UNIT INTO ML_REG 
ML_REG C.COUNT, REGISTER_ADD] = .RH_ADD + .OFFSET: 
OFFSET = .OFFSET + 38 ™ ™ 
end; 
else 'IS THIS A NEW PASS 


begin 
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LARATION SECTION SEQ 0185 
INITIALIZATION CODE SECTION tae pled 16:53:08 Mees A Ee Aa 

if READEF (EF_RESTART) then DROP_CNT = <1; ‘RESET THE PASS COUNTER 

if READEF (EF _NEW) ‘IS THIS A NEW PASS . 

OR di THIS. 1S A NEW Pass 


Y (.ONEPAS) and (.DROP_CNT eql 1) !HAVE WE DONE ONE PASS YET 


hen 
hy !DROP THE UNIT ON THE SECOND PASS 
(.ML_LUND; !DROP THE T : 
— ! JUMP TO THE CLEAN UP CODE 
else !'THE FIRST PASS IS NOT COMPLETED YET 
ML_LUN = -1; 'RESET THE LUN POINTER 
end; 
do 
begin 
ML_LUN = .ML_LUN + 1; !IF NOT GET NEXT LUN PTABLE 
if .ML_LUN geq .LSUNIT then DOCLN; !START OVER IF ALL UNITS ARE TESTED 
end 
until (GPHARD (.ML_LUN, PTBL_PTR)) neq 0: 'REPEAT UNTIL A 0 IS RETURNED 
end; | 


12) 


PAR_DIS = .((.PTBL_PTR) + As 
. 


ML_BuT = .((.PTBL_PTR) + 







: tGET PARITY DISABLE FLAG 
6) = 1: IGET OPERATOR 








OP" NUM = .((.PTBL_PTR NUMBER OF ARRAYS 
GOOD = ZEROES: iINIT GOOD BLOCK TO BLOCK ZERO 
ARR_16 = ZEROES: ‘INIT ARRAY 16 TO ZERO 
LST-ARR = ZEROES: : 'INIT LAST TO ZERO 
LST-BLK = ZEROES: ‘INIT LAST BLOCK TO ZERO 


; | 
DEFINE ERROR PRINTING THRESHOLD LIMIT 


if .ERRTHR then LIMIT = 10 else LIMIT = %0°077777': 


i CALCULATE THE. MOS RAM SIZE RUN, TIME 





| PARAMETERS. "EITHER 16K OR 
if -(C.PTBL_PTR) + 8) 1S_SET 'CALCULATE ML11 16K MOS RAM PARAMETERS 
in 
? DRIVE.TYPE = to' 110°; ‘EXPECTED DRIVE TYPE VALUE 
1672 UC STZE = 0° 140000" iWORD COUNT SIZE FOR 16K WORD XFER 








4 
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4 
4 
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LARATION SECTION SEQ 0186 
r-19 16: 3: TOPS-20 Bliss-14 V2(212) 
INITIALIZATION CODE SECTION r=19 6:33 ‘03 PA:<NEALE>ML4AD.BLI.4 (52) 
*. 'RAS INCREMENT FOR 16K RAMS 
CHIP siz sigs iCHIF SIZE 
1090" i ARRAY INCREMENT 
ARR 1, G = "17°; i ARRAY 
LST <$, 4> = .0P_NUM_ARR: iLAST y 
<3, 4> = .OP"NUM_ARR: iLAST BLOCK 
= .LST_BLK Or %0'777': 
else !CALCULATE ML11 64K MOS RAM PARAMETERS 
Ay": ‘EXPECTED DRIVE TYPE VALUE 
‘WORD COUNT SIZE FOR 64K WORD XFER 
PMP ez rate iRAS INCREMENT FOR 64K RAMS 
ARR_INC = %o' sa : 'ARRAY INCREMENT 
: VERSION CZMLAD CHANGED %0°37° TO %0°17'° 
ARR. 16<11 4> = tort? tARRAY 16 
, >= a 'LAST ARRAY 
LST “Hi. 4=. iLAST BLOCK 
LST“BLK = :LST_BLK oF %0 
end; 
if .((.PTBL_PTR) + 2) eql 20°70" then LST_DUT_REG = 21 else LST_DUT_REG = 19: 
PRINTB (FMT_17, .ML_LUN); ‘TELL OPERATOR WHICH UNIT IS BEING TESTED 
CLR_MBUS; 'CLEAR MASS BUS 
ENDINIT: 
-GLOBL LSUNIT 
2 LINIT INITIALIZATION CODE SECTION 
154700 LINIT: RR Saves : 4567 
000636 . _ 4587 
000040 1$: 2 4591 
177777 166124 : 4594 
165472 : 4595 


—— nese 



































F 15 
CZ m.-11 061¢ TEST MACRO M1113  30-MAR-82 11:18 PAGE 204 
LINIT INITIALIZATION CODE SECTION SEQ 0187 
sMLGAD r=1982 16:23:04 TOPS 
; INITIALIZATION CODE SECTION 3 a at 18:57 208 PA:< 
23: INC ML.LUN $ 4599 
152070 CMP ML.LUN,LSUNIT ; 4601 
BLT 3$ 
ss: BR wunno ms 
: eae ‘ 7 
MOV PTBL.PTR 
Ist PTOL.PTR | 
— MOY prec brerar 4607 
n6e0ss OY RTS TP : a 
166026 MOV | GRID RM WEL : 
CLR R : OFFSET 4609 
CLR R : COUNT 4611 
4$: MOV R1,RO : COUNT,* 4613 
ASL 
an 
ASL 
MOV RH ADD 
ADD R2, : OFFSET,* 
MOV oft, -REG(RO) 
ADD #2, : *, OFFSET 4614 
INC R : COUNT 4611 
sre R1 425 : COUNT,* 
1 3 4591 
5$: MOY 2RO PY 4621 
BHIS rt 
165320 MOV #-1,DROP.CNT 
6$: 4 # RO ° 4623 
BHIS as 
I PROP. CNT : 4626 
152302 ait #1, 0NEPAS : 4628 
000001 owe CNT, #1 
MOV oLUN,RO ; 4631 
TRAP 
a 
wg pte : ey 
151642 Cr _—e : 4643 
9$: : MOY ~LUN,RO Py 4646 
m 
MOV »PTBL.PTR 








eens eeteeetneneneneenee-seememmemeneeeeeeeeees —————, 
i 
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SECTION SEQ 0188 










“+> 
oe 
a 


sML4AD r-1 16:23:04 TOPS 
; INITIALIZATION CODE SECTION r=-1982 16:21:03 PA:< 
63606 Ist PTBL.PTR 
10$: MOV PTBL.PTR.R1 ; 50 
14 163602 MOV 14(R1) ,PAR.DIS = 
MOV PTR, Ri : 4651 
165612 MOV ML .DUT 
MOV PTR,RI : 4652 
MOV R3 
DEC 
544 MOV NUM. ARR 
CLR : 4653 
350 CLR ; 46 
536 a : tess 
1 152116 gir : 4661 
7 000012 165104 mov 
m sme tiga aecoagta css 
0 1 "  Cmp 1) 41 : 
BNE 
1 MOV : 4671 
1 MOY 5 4672 
1 MOV : 46 
163442 MOV : 4674 
1 MOV : 46 
SWAB ° 
sf 
163412 BIC 
BIS 
MOV : 4678 
SWAB 
1 Bic 
163346 Bis : 4679 
164676 13S: Aa his DRIVE. TYPE : rt 
. CLR W.C.$! : 4684 
304 | 164656 MOV #1000,RAS. INC : 5 
3 163314 MOV #100. CHIP. Si ; 4686 
54a ( BIS | BPLOOO ARR ; 2651 
aC MOV NUM_ARR.R : 4692 
SWAB 
ASL 
ASL 


ate 
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CZMLADO ML-11 
LINIT INITIALIZATION CODE SECTION 











2S 





309 

ie tae 
31 1] 

i 





sML4AD 
ASL 
BIC 
BIC 
BIS 
MOV 
SHAR 
ASL 
ASL 
ASL 
BIC 
BIC 
HE 

14$: 


a 
gnseaggaegeqs 





Gon 
“span 


T 
3; Routine Size: 


s Max mum stack depth p eer i etens 


-SBTTL 
LSINIT::JSR 
TRAP 


RTS 


INITIALIZATION CODE SECTION 


A Cer. ARR 


OP “NOM: ARR RS 








# 05777,R3 

8 3 »LST.BLK 
erat Ara at 
oLST.DUT.REG 


3 LST. 

at em 
CUN, -(SP) 
(SPs 


#7 ,@ML .REG+4 
RS. QML .REG+S 





274 wo 


LSINI T INI TIALIZATION CODE SECTION 


PC.LIN 
11 
PC 


7 words 


SEQ 0189 


ad 16:23:04 TOPS 
r-1 16:21:03 PA:< 





4694 
4697 


4699 


4589 
4567 


4701 


4704 


ODE SECTION 


! <BLF /PAGE> 
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2ML4AD 


INITIALIZATION CODE SECTION 


Routine Size: 4 words 
Maximum stack depth per invocation: 


0 words 


SEQ 0190 | 


16:63: rs 


TOPS — 
PA:< | 
i 


LE 


YW 


4 
4 
4 
4 
4 
4 
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ea mm 
NOUS WIN © 


USUI =O Oo 





roy ot 
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CODE SECTION 


TEST CODE SECTION 
ZSBTTL ‘TEST CODE SECTION’ 


t 
BGNTST: 


1+ 


TEST NUMBER: 
1 TEST NAME: 


TEST DESCRIPTION: 
Hdd THE RH CONTROLLER FOR EXISTANCE 


TST 1 
MASS BUS READY TEST 


RESULTING IN A MASS BUS CLEAR 


local 
DODU_FLG:; 


DODU_FLG = ZERO: 
BGNSOB; 


SE ee 

MLCS1 = ZE : 

MLCS2 = ZEROES: OO. 

DELAY (ONE_US); 

Ff .AaCS2) and (Z0°177670°)) neq ZERO 






TWA FAT REG? 2 FNC "és, PHR_4): 


if .DODU_FLG IS_SET 
then 
th 
(.ML_LUN); 
DOCLN; 
end; 


ENDTST; 






B3-mar-1968 16:51:08 


1. WRITTING ONES TO THE RH CS2 REGISTER 





TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>ML4AD.BLI.4 (53) 


2. THEN READ THE CS2 REGISTER FOR CLEAR DATA 


‘DROP UNIT FLAG 
:CLEAR THE DROP UNIT FLAG 


‘CLEAR OUT CS1 


‘LOAD CS2 WITH ONES AND FORCE A MBUS CLEAR 


‘SEE IF CS2 GOT CLEARED 
‘REPORT ERROR IF NOT CLEARED 


‘DROP THE UNIT IF DODU_FLG IS SET 





SEQ 0191 





cy SSR Pex Sh $ way 2S 8 
So . seh se wT 
Sx S85 SS§ SS § Sss 6568 §& 


SEQ 0192 


oO 
ant 
o N = i. © 
: Fi ; 
S 5 Sk & . 
2 4 ed = -_ “ 2 S 
S « « B&B a « oS 
co & ee = ee %e %e & ee %e se ce ®e 7 oe ee *%e *e *e *e & 











5 2 
” = i 
e- o ec) 
‘. “ 4 
s fF x 2 
oe oc S 
L@] he. ~ toad tw 
ls G—-Hows MNST 3S 
; a SEMENdSnsE 
3 = : 
Bsnq38= 88 s85S-n2na28 a 
bem Ls >>oa Swwwe -Gg ed 
; (ae3e seaaacR eee soseeease = 2 Seeeeee : 
yn 
< ae 
m" # _ eo oe oT) a o ee ee 8 
= sere Sad ~ % a wr wm 3 x ee 
So 
2 . 3.2 : 
#2 2 2 2 : 
— 
re = Rees & 2 esyes ost s 
3 iS 
3 _ SSests & S Ssss 2 
Mw 
uw Bh 
oe 
wv 
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EST MACRO M1113 30-MAR-82 11:18 PAGE 510 | 
SEQ 0193 


2ML4AD r=1 192g3:0% TOPS 
3 TEST CODE SECTION r= 16:21:03 PA:< 


; Maximum stack depth per invocation: 9 words 


-SBTTL Ti TEST CODE SECTION 


Tiss 
767 177564 1S: JSR PC,$T1 3 4751 
TRAP 
ROR RK 
BLO 1 
20 RTS PC 


; Routine Size: words 
: Maximum stack PR. . per himedeetiies 0 words 





4754 !<BLF/PAGE> 


#15 
TEST MACRO M1113 SO-MAR-82 11:18 PAGE 211 
SEQ 0194 


aa alt 16:63:08 TOPS-20 Bliss-16 V2(212) 


TEST CODE SECTION 9-Mar-19 PA: <NEALE>ML4AD.BLI.4 (54) 





4 
BGNTST: 


«+ 
ees 
S35 
MUI 
Nu 









+ 4758 144 
t ib 4759 i TEST NUMBER: TST 2 
3275 Fes : TEST NAME: |§ MASS BUS HANDSHAKE TEST 
3559 4763 | TEST DESCRIPTION: 
5278 4764 TEST MASS BUS TO UNIBUS COMMUMICATIONS 
$< 3 4769 VIA THE CONTROL BUS BY: 
8281 ae i 1. READING RH AND DRIVE REGISTERS AND 
3 y 4768 TEST ‘THE NON EXISTANT DRIVE "NED* 
B58 4770 } 
R285 771 = !=< 
a5 Re 477 
yy: 4773 local 
BBE 477% SAVE. ‘TEMPORARY SAVE LOCATION 
3285 4275 DODU_FLG: ‘DROP UNIT FLAG 
RC 777 CLR_THRESHOLD;: 'CLEAR ERROR PRINT THRESHOLD 
325 4778 DODU_FLG = ZERO: | 
329% iner REG_SEL from 0 to .LST_DUT_REG do ‘TEST ALL PRESENT RH REGISTERS 
Z. BGNSUB: 'START OF SCOPE LOOP 
3298 SAVE = ..ML_REG C.REG_SEL, REGISTER_ADDJ; READ THE REGISTER 
DELAY (ONE_OS): 'DELAY ONE MICRO SECOND 


7 a IS_SET ‘DID READ CAUSE THE NED BIT TO SET 


7 . ‘REPORT AN ERROR IF SET 
‘COMPARE ERROR PRINT THRESHOLD 






. OC ot 
a 







SSSSSSSSSSS SSS s 
SSSSVSSSASASIIAY 


rv SSSS5 
Se So Se Se Se We Se Ge We Ge Ge We Ge Ge Ge Ge Ge Oe Ge Se Ge Ge Se Oe Se Oe Oe Oe Oe Ve Be Oe Be Be Be Oe Oe Ge be Se Oe Oe Be Oe hs Oe he bs te te ® &e 


. e R): 

; , WRD Ps PR WRD_12, WRD_52, FNC_6): 
: 138 (FAT-11, .ML_REG C.REG_SEL, REGISTER“ADD)): 

ki 4734 UFLG = ONE; 

B 4 P 

331 re ENDSUB; 'END OF SCOPE LOOP 
u ak 

331 4 if .DODU_FLG IS_SET 

33 4801 then , 

: n 

+h 4 ¢ tM (.ML_LUN) ; 

* 18 4 DOCLN; 

331 ; 5 end: 
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CODE SECTION SEQ 0195 
;MLGAD 9-Mar-1982 16:23: TOPS=20 Bliss-16 v2(212) 
: TEST CODE SECTION S9-Mar-1989 16:57:03 ParenFALest ap aNd & Zea 

5 4807 ENDTST: 






thle $T2 TEST CODE SECTION 








131150 153436 $T2: : : 4753 
; 11 -(SP) ,-(SP) 
7 " — Ri : DODU.FLG 1558 
0311 164166 MOV LST.DUT.REG,-(SP) : , 4780 
' i 2 CLR R 7 REG.SEL 
341 ¢ 117 1$: MOV : REG.SEL,* 4784 
37 931 0 ASL 
is Galets 
R347 03121C 0 164226 ; 4782 
* B ; 1€ teset0 | 782 
B352 031240 15404 000002 © MOV : *,SAVE 4784 
| Bees Oat $00004 NOY ; SlSSTRP2 4785 
x 1 8 3S: BEQ 
8: 5 ¢ 2 150636 nov : *,SSTMP1 
031262 000004 4$ CLR ; SSTMP 
3: : 1 a6 005. 2 He 3 SSTMP1 
i | 
) ): 010000 164140 6$:  § BIT #10000, aML.REG+40 ; 4787 
481306 005269 166 inc PeNT ' | 4789 
3 $48 164066 164060 CMP P. CNT, LIMIT ° : 
Bs1522 1044 TRAP : 6791 
13¢ 90017¢ «WORD 
‘ 3 01330 : * WORD | 
131332 ¢ 6 01 MOV : 4792 
N31 334 1 1 MOV : 
ps ae 012746 01 MOV 
31 } Sees Oiess MOV 
931356 012746 010 MOV 





yo LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 34° 





SEQ 0196 












sMLSAD 16:23: TOPS 
: TEST CODE SECTION 18:57 208 PA:< 
: 000006 MOV #6,-(SP) 
5 MOV pe 2RO 3; SP,* 
; HOV ML .REG(R3) (SP es 4793 
3 MOV =) 
33 MOV #2 niSPS 
335 MOV RO : SP,* 
33 900001 MOV = s«#1,R1 ; *,DODU.FLG 479% 
-! . eee 7: + 7 5. : rh 44 
R39 : ROR ; 
336 : 4 ; REG.SEL 4780 
536 an ; REG.SEL,* 
3s DEC 3 DODU.FLG 4800 
139° 164362 MOV : 4803 
ri 000006 108: ADD 4753 
B40: "RTS ‘ 
$9 
$405 : Routine Size: 
54 OC 3 Maximum stack Te theecht tens 18 words 
, -SBTTL T2 TEST CODE SECTION 
7 % 767 177664 18; ; JSR ge : 4805 
Tey | 
B25 0314 . 4 
406 é RTS PC 
4428 Routine Size: 


; 6 words 
: Plax imum stack depth per invocation: 0 words 


eee 


16 
ers ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 514 
Té TEST CODE SECTION 





“| 


SEQ 0197 


33 : 4808 !<BLF/PAGE> 


CEALADO ML-11 tah TEST 
SECTION 


TEST 





w 


Soueasnnerenry 


IIIS SSIS SSS SRR SSS 
PUASWNV=aAS 


Pw + 


RSS 


CODE 
3sMLSAD 


=~ 
ed eed ceed coed ceed cad ened cx end ™ 








& 


NOAUESUN =@QOOVNAULSWN=OF¢ 


WR} = C> Oe 


PW 


PEER ARLERRARLELRDE 
~tetrirtrrtetededt 


Sa 
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weet 


= 


TEST CODE SECTION 
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SEQ 0198 






TC?S-20 Bliss-16 v2 


PA:<NEALEDML4AD.BL1.4 (55) 


r-19 


16:91:03 


DRIVE PRESENT TEST 


THIS TEST READS THE DESIRED SECTOR 
DRIVE UNDER 






R OF THE. 





US, THEN 
THE NED BIT OF MLCS2 


SET, AN ERROR MESSAGE IS 
PRINTED AND THE UNIT IS DROPPED 


BGNTST: 
$44 
: TEST NUMBER: TST 3 
TEST NAME: 
TEST DESCRIPTION: 
i ADDRESS REGISTER 
Test. DELAYS 1 
; 
5 
i 
: 
inn 
local 
DODU_FLG, 
SAVE: 


DODU_FLG = ZERO; 
BGNSOB; 


et MLDA; 


DELAY (ONE Ue) 
if .NED IS_SET 
then 


ERRD_(1 






PRINTB {ont ra rms 


DODU_FLG 
end; 


ENDSUB; 
if .DODU_FLG IS_SET 
then 


bi 
(.ML_LUN); 

DOCLN; 

end; 


ENDTST; 


‘DROP UNIT FLAG 
: TEMP STORAGE LOCATION 


'READ oo DRIVE REGISTER 
‘DELAY 1 US | 


!TEST THE NED BIT 


‘IF SET THEN REPORT ERROR AND SET DODU_FLG 


‘DROP THIS UNIT IF DODU IS_SET 


-SBTTL $135 TEST CODE SECTION 


16 
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SEQ 0199 
r-1 16:69:08 TOPS 
- 16:21:03 PA:< 
‘a TEST CODE SECTION ad 1983 pom 
: JSR RT SAVES , 
i ia mB ; DODU.FLG 4832 
He = 
31 #40, aML.REG*+40 , 
xt i mov OM bates 
Oe ) Hie FeO de 
H —_ *@ML .REG+40 a 
te xt iss nov ani -REGYSO.Re : SAVE 
8514 031 ; 
15 O81 150342 ~ @ Barve ; *,SSTMPI 
Bi; os a iS a 
19 931 - BEC : — 
$520 051 ss: DEC RT ; SSTMP _ 
558 O81 010000 163646 S$: BIT #10000,am .REG+40 | : - 
#595 031600 TRAP : | 
8526 O31¢ . WORD 
316 e WORD | wif 
R330 O81 10946 MOV 
S31 O8tG 9 MOV os 
558 OF 90000 : *,DODU.FLG 4843 
tt 316 1 MOV | 4840 
Re , 1 | 6S: +4 
au a ‘0 ; DODU.FLG 4848 
a gE aes a 
5541 0316 166152 MOV 
es 4 we 4807 
3% ie ne 
i : Routine Size: 61 word 
74 


Ss 
: Maximum stack depth per invocation: 9 words 


F 16 
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:MLSAD r-1 16:23: 
S$: TEST CODE SECTION ae dS 18:37:03 
-SBTTL T3 TEST CODE SECTION 





767 177602 1$: JSR PC.$T3 : 
TRAP 
ROR 
BLO 1 
20 RTS PC 
3; Routine Size: .6 words 
; Maximum stack depth per invocation: 0 words 


ed ced ceed eed end eed 


a8 4856 !<BLF/PAGE> 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALEDML4AD.BL1.4 (55) 


SEQ 0200 


4853 


cg 00 AL- 
TS TEST CODE 





861 
861 

51 
861 
861 
841 
361 


; 


wee . 


11 


ML4SAD 





L 
SE 


OGIC 
CTION 


| 
8 
‘% 





E 
4303 
4908 
4 
4905 
& 
4 
4 
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TEST CODE SECTION 


' 
BGNTST; 
+4 


TEST NUMBER: TST 4 
i TEST NAME: DRIVE SELECTION TEST 
i TEST DESCRIPTION: 













NUMBERS OF 





| IMPLICI T INPUTS: 
ML_DUT 


local 
SA 





if .SAVE -ML_DUT 
then — 






PeRor (2, INTER, DUMPER) 
PRINTS (SIX_FMT, PHR_4, URD 12, FNC_3 








incr DRV_SEL from 0 to 7 do 
if .DRV_SEL -ML_DUT 
then Hit 





DRV NUM = .ML_DUT; 
SAVE = .MLDA;~ 


if .SAVE neq .ML_DUT 
then oe 








PRINTB (FMT_2, .ML_DOT. .SAVE, (.ML~ “pot xor .SAVE)); 
EXIT TST: 





SEQ 0201 
SAIS NESE RS 


29-Mar- PA: <NEAL 





N WRITING THE DRIVE 


THIS TEST TESTS FOR UNIQUE DRIVE SELECTION BY “a THE DRIVE 
UNDER TEST (DUT) DRIVE NUMBER INTO ITS 

OTHER DRIVES INTO THEIR RESPECTIVE DSA REGISTERS 
AND READING THE DUT DSA FOR ITS DRIVE NUMBER. 





LOADED DURING THE INITIALIZATION CODE AND CONTAINS THE DRIVE 
NUMBER OF THE DRIVE PRESENTLY BEING TESTED. 


‘TEMPORARY SAVE LOCATION 


'LOAD THIS DRIVES DRIVE NO. INTO ITS DSA REG 
‘READ THE REGISTER BACK 


‘SEE IF DSA HAS DRIVE NUMBER 


ERROR AND EXIT TEST IF DSA NEQ DRIVE NUM 


URD_37° UNDA) Reg 6s 


‘WRITE DRV NO OF OTHER DRIVES INTO THEIR RESPECTIVE DSA REG. 
‘SKIP IF .DRV_SEL EQL TO THE DRIVE UNDER TEST (DUT) 
‘SELECT DRIVE TO BE WRITTEN TO 


*WRITE DRIVE SEL NO. INTO ITS DSA REG 
!DELAY 1 US 


‘SELECT THE DUT 
‘READ ITS DSA REG 


‘SEE IF WRITTING TO OTHER DRIVES CHANGE ITS VALUE 


H 
C TEST MACRO M1113 30-MAR-82 11:18 PAGE o9° 
ON SEQ 0202 


so fer=19 16:23: TOPS-20 Bliss-16 V2(212) 
3-Mar 1985 16: 1303 PA:<NEALESML4AD.8L1.4 (56) 


Ser ML-11 LOG 
TS TEST CODE SECT 
sPMILGAD 

; TEST CODE SECTION 


dene enw 











: 4 n 

; 4910 E (3, ASYNC, R); _ ERROR AND SET DODU_FLG IF CHANGED 
: 491 PRINTS (THR_FMT. : NC 5 WRD 37, WRD_14);: 

: 491 PRINTS (FMT_1, .ML_DOT. .SAVE): 

; 491 ’ 


4915 ENDSUB; 
4 ENDTST: 





-SBTTL $14 TEST CODE SECTION 




















152646 $T4: JSR . ee? ; 4855 
1$: : 4878 
000040 163524 440, QML .REG+40 ; 4 
at ii 
90000 163506 
2 R2,a@ML. ‘ 
164064 163464 AL .DUT eREG+30 7 4882 
167680 @AL .RE ; *,SAVE 4883 
1640 R3.ML. 3 SAVE,* 4885 
3 j 4888 | 
- WORD 
-WORD INTER 
1254 MOV #REG.6,-(SP) - 4889 
1 MOV #URD.15,-(SP) 
11122 MOY #URD.37,-(SP) 
1 my a8. 8 
1167 MOV #PHR.4,-(SP) 
1 MOV asix a7 (SP) 
MOV ve 3; SP,* 
TRAP 4 
163770 MOV A (SP) 3 4890 
MOV : SAVE,* 
BIC ( 
BIC 3; SAVE,* 
BIS 
163752 ROY OAL DUT (SP) os 
006506 MOV SFAT.2,~ (SP) 
MOV -(SP) 
MOV 


OF 


RO : SP, 











| 6 
CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 4 
$14 TEST CODE SECTION SEQ 0203 
sMLGAD r-1 16:23:04 TOPS 
: TEST CODE SECTION a at 16:21:03 PA:< 

sR¢ TRAP 3s ‘16 
: sore TRAP 
Beige gery coos x : is 
033 gs: CLR : DRV.SEL 4894 
0321 163720 : ch : DRV.SEL,* 4896 
Res 1 MOV : DRV.SEL,* 4899 
32 77770 BIC 
Ly 163314 BICB 
Me 1e3575 mov ; DRV.SEL.* 4900 
1321 1 MOV : *,$3TMPS : 4901 
hy 43: BEQ 
D3¢ 147744 mov : *, SSTMPI 
9321 5$: CLR 3 SSTMP 
' #4 DEC : SSTMP1 
)3¢ 6$: DEC : SSTMP2 
bas! 7s: ne : DRV.SEL 4894 
ike , 000007 , cme ; DRV.SEL,* 
te 7é 197770 ny : 4904 
35924 77 
03 06 163230 BICB 
32¢ 4 B1SB 
952220 1 MOV : *,SAVE 4905 
N322¢ i cMP : SAVE,* 4907 
' 22 30 BEQ 
13223 TRAP 3 4910 
3223: - WORD 
2997 ; WORD 
13224 ~ WORD 
03206< 1 ‘MOV : | 4911 
032246 111 MOV 
3225¢ 121 OY 
)3225¢ 10256 MOV 
0320¢ AGY 
)32¢ sf MOV : SP,* 
S38 7¢ TRAP 
d3¢¢ MOY : SAVE,* 4912 
323 , MOV 
323 MOV 
oH 000020 ADD : 4909 

: 952521 8$: TRAP 5 4913 

8747 03032¢ ROR 

7 48 a7 €7 





tee 
wn 








a 
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SEQ 0204 
sMLSAD 723: 
: TEST CODE SECTION Sonar n19e3 1oi3t gs OPS 
~— sd 
: Is & 4855 


: Routine Size: 142 wo 
; Maximum stack depth p per . re 17 words 





; -SBTTL 14 TEST CODE SECTION 


T 
767 177340 1$: JSR PC .$T4 : 
4915 
ROR 
BLO 1 
. RTS PC 
ne § 
$s 





ize: 6 words 
tack depth per invocation: 0 words 


; Routi 
$ > Maxi 





5788 : 4917 !<BLF/PAGE> 


CZMLADO ML~- 
T4 TEST CODE 





3 





rer 





DOO NAURWN ODE 


+ 
as 
ag 
t 
1 
t 
BE 
RE 
> 

_ ’ » 
D § 
2 
t 
BE 
. ’ - 
“ ’ 


wy 


eed coeth oe eed eed cee) eed ced ed 








17L 
SE 


ML4SAD 


0G 
cT 
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r-1982 16:23: TOPS-20 Bliss-16 V2 

TEST CODE SECTION 3 a at 18:57 308 PA:<NEALEDML4AD.BLI 
4918 ! 
$3 BGNTST; 
4921 144 
4 ! TEST NUMBER: TST 5 
49 : TEST NAME: § READ WRITE REG ONES/ZEROES TEST 
4 ! TEST DESCRIPTION: 
4 i THIS TEST WRITES AND READS A DATA PATTERN OF ALL ONES AND ZEROES TO ALL 
49 : OF THE ML11°S READ / WRITE REGISTERS. 
4930 i ROUTINES WRT_REG AND RD_REG ACCEPT ARGUMENTS TO FURTHER SELECT ROUTINES 
49 WHICH ACTUALLY PERFORMS THE READING AND WRITING OF THE REGISTERS. 
49 THE UNIT IS DROPPED ON DETECTED ERRORS. 
4935 | IMPLICIT INPUTS: 
4936! WT_DATA 
4937! LOADED BY READ REGISTER ROUTINES AND CONTAINS THE DATA PATTERN WRITTEN 
49 : TO THE REGISTERS (REPRESENTS GOOD DATA). 
4940 i RD_DATA : 
4941 } LOADED BY THE READ REGISTER ROUTINES AND CONTAINS THE DATA PATTERN 
49% READ FROM THE REGISTER (REPRESENTS BAD DATA). 
4944 
4945 local 
49% ERR_FLG, 'ERROR FLAG PASSED TO ROUTINES 
494 TST PAT, ‘TEST PATTERN 
494 index 'POINTS TO REGISTER PRESENTLY BEING TESTED 
44 DODU_FLG; 'DROP UNIT FLAG 
é 9 CLR_THRESHOLD: ‘CLEAR ERROR PRINT THRESHOLD 
4 : DODD_FLG = ZERO; 
4 TST_PAT = ONES; ‘LOAD TEST PAT WITH ONES 
4955 iner TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
Pr begin 
é iner REG_SEL from 0 to 7 do 'TEST ELEVEN WRITE/READ REGISTERS 
4 : 
4 CLR_MBUS: 
4 WRT-REG (.TST_PAT, .REG_SEL, index); | ‘WRITE TO THE REGISTER 
é RD_REG (.TST_PAT, .REG_SEL, ERR_FLG): iREAD THE REGISTER 
‘ if -ERR_FLG 1S_SET 'SEE IF READ FOUND AN ERROR 
4 begin 11F ERROR FLAG IS_SET_ THEN ERROR AND SET DODU_FLG 
4 _ THRESHOLD: ‘COMPARE ERROR PRINT THRESHOLD 


i 
SEQ 0205 


nee 
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CODE SECTION SEQ 0206 
sML4AD r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
; TEST CODE SECTION 3 a at 16: 1:08 PA:<NEALE>ML4AD.BLI.4 (57) 
: 4970 selectone .REG_SEL of SELECT WHICH MODULE FAILED 
1: 4953 cts 
32 : 4908 (0 to 3) : 
: 497% ERRDF (4, ASYNC, DUMPER); !ASYNC MODULE FAILURE 
5: 4976 (4 to 5]: 
; 49? ERRDF (4, SYNC, DUMPER): = !SYNC MODULE FAILURE 
: 49 [6 to 7]: 
59 : 4 me ERRDF (4, ARR_DAT, DUMPER); 'ARRAY DATA MODULE FAILURE 
s es; 
3 4 
: 4 PRINTB (SIX_FMT, PHR_4, WRD_12, FNC_5, FNC_6, WRD 52, WRD_56); 
: 4 PRINTB (FMT"16, .ML_REG C.ifidex, REGISTER_ADDJ, .OT_DATA,~.RD DATA); 
: é S ULFLG = ONE: 
: 4 ; 
3 4 ENDSUB; 
: 2 end; 
: 4991 TST_PAT = not .TST_PAT: 'REPEAT AGAIN WITH COMPLIMENT DATA 
: 4994 if .DODU_FLG IS_SET !DROP THIS UNIT IF THE DODU_FLG IS_SET 
: — 
: 4997 DOBU (.ML_LUN); 
3 rh 4s DOCLN: 
$000 
: 5001 ENDTST: 
$15 TEST CODE SECTION 
52 167 152214 $75: R1,$SAVE4 ; 4916 
-(§P) ,-(SP) 
5 163012 P.CNT : 4949 
R : DODU.FLG 495 
177777 #=-1,R2 : %,TST.PAT 495 
R1 : TWICE 4955 
1$: R3 : REG. SEL | 4958 
2$: 2 ; 4959 
1 0 163036 #40, aML.REG+40 ; 4960 
04 709 i 0 a? 16"b0 
416 14 000007 163020 47 ,@ML .REG+40 
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-11 LOGIC T 
CODE SECTION | SEQ 0207 
:ML4AD r= 1982 16:25:04 TOPS | 
: TEST CODE SECTION r-1 16:21:03 PA:< | 
424 163014 BISB -@ML .REG+40 
4 MOV R2,~(SP) : TST.PAT,* 4962 
54 MOV -(SP) > REG.SEL,* 
524 000010 MOV #16.-(SP) 
24409 16 ADD SP, (SP) : INDEX,* 
3244 67 172656 JSR PC,WRT.REG 
16 MOV Re. (SP) : TST.PAT,* 4963 
524 MOV =(SP) 3 REG.SEL,* 
4 46 000012 MOV #12,-(SP) 
26 16 ADD SP, (SP) ; ERR.FLG,* 
f 173226 JSR PC.RD.REG 
4 6627 000012 000001 CMP TetsP) a : ERR.FLG,* 4965 
5247 5267 16267, INC P.CNT : 4967 
¥ f 162672 162672 ow P.CNT LIMIT 
E 1 706 000012 ADD #12,SP 
2514 1 BR 
$ 0 3$: TST : REG.SEL 4970 
: 410 | BLT 
02( 000003 CMP ; REG.SEL.* 
903005 BGT 
F 104455 TRAP : 4974 
90000 - WORD 
se 91276 WORD 
ais 10042 BR 4970 
5254 0205 000004 4$: CMe ; REG.SEL,* 
t+ 120327 000005 cA : REG.SEL,* 
y 044 2 TRAP : 4977 
206 slelele - WORD 
tite 4 ; i - WORD 
6 OC BR : 4970 
f D2¢ 4 000006 5$: cep : REG.SEL,* 
2576 020327 000067 CrP ; REG.SEL,* 
2604 104455 TRAP : 4980 
PA04 elelers WORD 
ty ' ; , “WORD 
26 308 * WORD 
eC ’ 6$: MOV Z 4983 
2620 01274 MOV 
2624 012746. MOV 
526: D 012746 MOV 
2634 01 MOV 
Bes Saris i 
56 » 012746 MOV 








1 
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ZMLADO ML-11 LOGIC T 
TS TEST CODE SECTION SEQ 0208 — 
“MLGAD g9-Mar-1 16:23:04 TOPS | 
: TEST CODE SECTION r=1 18:21:03 PA:< | 
010600 MOV SP,RO : SP,* 
4b 6 Soeets TRAP = ‘14 
2660 016716 1 MOV RD. DATA, (SP) ; 4984 
2670 116600 MOV 36(SP) ,RO ; INDEX,* 
> : by " 106506 ro RO 
i N06 306 ASL RO 
; iY 916046 15406 | MOV ML.REG(RO) ,-(SP) 
% 012766 4 MOV #FMT.16,-(SP) 
119746 MOV #4,-(SP5 
716 010600 MOV SP..RO : SP,* 
32720 1044146 TRAP 16 
2 1 1 MOV #1,R4 : *,DODU.FLG 4985 
975 032726 0607 0 ADD 36, ; 4967 
. Oz 2 0607 12 7$: ADD #12,SP : 4959 
+ Pe \ TRAP 67 s 4 
. 40 006006 ROR RO 
; sre teh 8$ 4 es REG. SEL 4958 
is d2¢ of 000007 aa? 3 REG.SEL,* 
f 005102 COM = s-R2 ; IST.PAT 4991 
6734 005 J INC R1 : TWICE 4955 
0 000001 CMP R1,#1 : TWICE,* 
56 OC DEC R4 : DODU.FLG 4994 
770 ~=6(001 BNE 9$ 
9 032 016 163032 MOV ML.LUN,RO : 4997 
032776 451 TRAP =‘ 1 
3000 104444 TRAP = & 
50C $26 9$: CMP (SP)+, (SP)+ : 4916 
nC RTS PC 


: Routine Size: 142 words 
: Maximum stack depth per invocation: 24 words 


| -SBTTL TS TEST CODE SECTION 
; T5:: 
: 13 nati 004767 177340 1$: JSR PC ,$T5 3 4999 
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C7 ADO ML-11 LOGIC 
T> TEST CODE SECTION SEQ 0209 
14 MLSAD T | 
iF ; TEST CODE SECTION 3 a at + +P 08 Paez 
13 1¢ 1 TRAP 66 
18 1 ROR RO 
1 46 1 BLO 1$ 
20 RTS PC 
; : Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 
; 5002 '<BLF/PAGE> 


—~ eww <o- ~<——- - 


ae 
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C ML~11 LOGIC 
re bees CODE 3ECTION SEQ 0210 
9032 ;ML4AD ola 16:23: TOPS-20 Bliss-16 V2(212) 
% : TEST CODE SECTION o-par 1965 16:57:08 PA:<NEALE>ML4AD.BL1I.4 (58) 
90 Bi 2 ; benTST: 
3 M4 : 2 2 i+¢ 
90 9 : i i TEST NUMBER: TST 6 
9041 : 09 ; TEST NAME: § READ WRITE REG SHIFTING ONES/ZEROES TEST 
5 : 5011 i TEST DESCRIPTION: 
: 5 12 THIS TEST WRITES AND READS A 
5: 5013. SHIFT "S AND 
9046 : 5014: PATTERN TO T 
9047 501 ° READ/WRITE REGISTERS 
9: 5017! ROUTINES WRT_REG AND RD REG 
50 : 5018! ACCEPT ARGUMENTS TO FURTHER 
51: 5019 | SELECT ROUTINES WHICH ACTUALLY 
2082 : 5020 PERFORMS THE READING 
905 : 30 s WRITING OF THE REGISTERS. 
$085 : 50 $ THE DRIVE IS DROPPED ON DETECTED 
3089 : 056 i ‘ 
9058 : 50 6 i IMPLICIT INPUTS: 
9059 : 5027 | WT_DATA 
9060 : 5028 COADED BY READ REGISTER ROUTINES AND 
; 5029 | CONTAINS THE DATA PATTERN WRITTEN TO THE 
: 503¢ REGISTERS (REPRESENTS GOOD DATA). 
: 5032 | RD_DATA 
5: 5033: COADED BY THE READ REGISTER ROUTINES AND 
: 5034 | CONTAINS THE DATA PATTERN READ FROM THE 
; 5035 | REGISTER (REPRESENTS BAD DATA). 
: ; 
: 5 I me 
5 5 
3 5040 cal . 
; 5041 ERR_FLG, ‘ERROR FLAG PASSED TO ROUTINE 
: 04 TST PAT, iTEST PATTERN 
: 04 index | IPOINTS TO REG PRESENTLY BEING TESTED 
; oes DODU_FLG: IDROP UNIT FLAG 
: CLR_ THRESHOLD: 'CLEAR ERROR PRINT THRESHOLD 
: S047 DODD_FLG = ZERO: 
; 8 TST_PAT = ONE: 'LOAD. TST_PAT WITH A 1 IN A FILED OF 0°S 
: 2 50 incr SHIFT from 0 to 15 do . 'DO SHIFT 16 TIMES 
; 3! begin 
; 5 incr TWICE from 0 to 1 do IREPEAT LOOP TWICE 
; 54 begin 








-,, 
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c ML-11 LOGIC 
TS TEST CODE SECTION SEQ 0211 
3MLGAD r-1 16:23: TOPS-20 Bliss-16 V2(212) 
385 : TEST CODE SECTION Soper 1 985 18:57:08 PA:<NEALEDML4AD.BLI.4 (58) 
1 3 5055 
2098 ; 3 3 iner REG_SEL from 0 to 7 do 'TEST ELEVEN READ/WRITE REGISTERS 
: 5 . 
; 2089 CLR_MBUS; 
; 5060 WRT-REG (.TST_PAT, .REG SEL, index): ‘WRITE TO THE REGISTER 
: 3 1 RD_REG (.TST_PAT, .REG_SEL, ERR_FLG): ‘READ THE REGISTER 
90 : 3 if -ERR_FLG 1S_SET 'SEE IF THE READ FOUND AN ERROR 
Stor : 3065 begin ‘IF THE ERROR FLAG IS_SET THEN ERROR 
3 3 ; 3066 _ THRESHOLD: ‘COMPARE ERROR PRINT THRESHOLD 
9104 : 5068 selectone .REG_SEL of ‘FIND WHICH MODULE FAILED 
9105 ; anon set 
9106 ; 5070 7 
9107 : 5071 [0 to 3] : | 
3108 : 307 ERRDF (5, ASYNC, DUMPER): -!ASYNC MODULE FAILURE 
9110 : 5074 [4 to 5] : 
911] : 2075 ERRDF (5, SYNC, DUMPER): 'SYNC MODULE FAILURE 
5118 : 5077 [6 to 7] : 
9114 : 5078 | ERRDF (5, ARR_DAT, DUMPER): 'ARRAY DATA MODULE FAILURE 
ABE : 3080 tes; 
9119 : 5081 | PRINTB (SIX_FMT, PHR.4. WRD_12, FNC_5, FNC_6, WRD_52, WRD_56); 
3118 : 5 PRINTS (FMTO16, .ML_REG C.ifidex, REGISTER_ADD], .OT_DATA,~.RD. DATA): 
9119 ; 2 DODU_FLG = ONE; 
9121 : 5085 . 
91 4 : 5 ENDSUB; 
4 ; : ; end: 
31 : : 3 9 TST_PAT = not .TST_PAT: 'REPEAT WITH AO IN A FIELD OF 1°S 
Ps nd; 
a 
128 : TST_PAT = .TST_PAT“ONE; ‘SHIFT THE 1 IN. THE FIELD OF O°S 
a § 5 ¢ ; | ) 
91 3 ; 5 if -DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG IS SET 
: begin 
; 5 DOBU (.ML_LUN); 
135 ; 1 DOCLN; 
137 : 101 5 
138 ; 5102 ENDTST: 
14 


Se ee oo 
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MLADO ML~11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 329 
TEST CODE SECTION SEQ 0212 
9144 sMLGAD $e -ter=t 16:23:04 TOPS 
3149 : TEST CODE SECTION r=1982 16:21:03 PA:< | 
s149 -SBITL $16 TEST CODE SECTION | 
91 022 151564 $T6 JSR 2 SSAVES ; 5001 
91 $026 CMP =(§P) ,-(SP) 
91 1305C 162342 CLR CNT : 5044 
91 ,) CLR : DODU.FLG 5047 
91 503¢ 000001 MOV ss #13 ; *, TST.PAT 5048 
91 tt CLR ; SHIFT 5 
91 i 1$: CLR = R2 ; TWICE 505 
i 24¢ es: CLR =—s RG ; REG. SEL 5096 
305¢ $: TRAP 2 ; 505 
9160 033052 0 162364 BISB #40, aML .REG+40 5058 
91 060 016700 1 46 MOV ML.DUT,RO 
91 506 700 1 BIC #177776,R0 
91 070 14 009007 162346 BICB «#7 AML .REG+40 
9164 0: 076 150077 162342 BISB —RO.@ML-REG+40 
91 110346 MOV -(SP) ; TST.PAT,* 5060 
91 104 010446 MOV ; REG.SEL.* 
91 106 012746 000010 MOV 
91 17 +44 34) ADD : INDEX,* 
91 114 904767 172204 JSR 
91 120 010316 MOV ; TST.PAT,* 5061 
9171 O331¢2 010446 MOV ; REG.SEL,* 
31 124 012746 000012 MOV 
1 er o18 ADD e e ERR.FLG,* 
9174 033132 OC 172554 JSR  —- PC. RD. REG 
ote Ne $7 000012 000001 cap e(SP) at ; ERR.FLG,* 5063 
1 146 005267 162224 INC — P. CNT : 5065 
3178 13 026 i 163330 162220 CAP CNT LIMIT 
- 0¢ 06 000012 ADD = #12.SP 
1 170 005704 4S: TST &6 ; REG.SEL 5068 
31 72 OC 410 BLT 3=—sSS$ 
184 033174 02042 000003 a ; REG.SEL.* 
31 i 04458 TRAP 55 5072 
1 $2 000005 - WORD 
188 033206 ( 2706 -WORD  ASYNC 
1 3 » 0263¢ glORD DUMPER _— 
3214 020427 000004 S$: CMP > REG.SEL,* 
L¥ 1024 9 BLT 
Seee 020427 000005 CMP ; REG.SEL,* 
133 3 ve 40 BGT 
1 3 TRAP ; 5075 
199 3¢ 90005 —- 
a 236 | 02630 «WORD 
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TOPS 
PA:< 
5068 
5078 
5081 
5082 
O65 
5 
057 
084 
5056 
053 
509 
5030 
5095 
5098 


SEQ 0213 


$9-mar=1969 16:91:08 
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; 
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6$: 
7$ 
8$: 
9$ 
10$ 


n WOOWCOw~NKR wow 
ecru | a aT 
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ye gee ne % 
Ce ee ee eee 
COSCOODD 


me 2OW KRARARRRALS 
3 gd eek hh eh seh, eh, eh seh, mead eh eh 


SSRN DOO ORR OS SAAS S RAR BSL NN SS ee OSS OS Wiehe Rak oOx< 





Lee ne ENN eee . 
at alvalwalvaltattal tet tat et ate oA oa At ott elo tla aa nln alee eA eA pat ph pala eargarea yalyal ata rates tates 
SOSOSOSSSOSOSOOOSSSSSSOSCOSSSOSOSSOSOSSO SOO a IIIT 
— 
“4 2 = CUR) ° *)* = } wor. a or. ‘le - . ele = eje ~ 
we Rue POSSSaC ere eee PALI SS pA 
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177320 


i <BLF /PAGE> 


sMLGAD 


; TEST CODE SECTION 


TRAP 44 
11$: CMP bere. Case 


RTS 


: Routine Size: 150 word 


; Maximum stack dep 


& 
th per invocation: 


- .SBTTL 16 TEST CODE SECTION 
1$: ‘JSR PC,$T6 

TRAP 7 

BLO 1$ 

RTS PC 


: Routine Size: 6 
+; Maximum stack dep 


words 
th per invocation: 


25 words 


0 words 


rr ee eeenetneettnnanne er oe 






SEQ 0214 
an} 16:23:06 TOPS 
r=1 16:21:03 PA:< 

5001 | 
5100 


eget 
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CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 332 
16 TEST CODE SECTION SEQ 0215 
9297 =ML4 9-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 
7298 ‘Se ” TEST CODE SECTION Soma 1985 16:21:03 | PA:<NEALE>ML4AD.BLI.4 (59) 
930¢ $ 5105 ! 
9301 : 3106 BGNTST: 
3208 : 3108 i++ 
9304 3109 TEST NUMBER: TST 7 
9306 : 3111 : TEST NAME: REGISTER INITIALIZATION TEST 
9308 ; 5118 i TEST DESCRIPTION: 
9309 : 5114 THIS TEST TESTS THE ABILITY OF 
9310 : 5115! ALL ACCESSIBLE ML11 REGISTERS 
9311 : 5116 i TO CLEAR OUT REGISTER DATA OF 
12 ; 5117 : ONE'S AND ZEROES PATTERN. 
9314 : 5119} ROUTINE WRT_REG WRITES A 
13 : 3120 ; PATTERN TO THE SELECTED REGISTER. 
7 : 5162 ; A MASS BUS CLEAR IS DONE. 
9319 : 5124! THEN ROUTINE RD_REG READS THE 
9 0 : 5125 SELECTED REGISTER FOR CLEARED DATA 
9321 ; 31 6 ) THE DRIVE IS DROPPED ON DETECTED ERRORS. 
3 5 : 5128 | THIS TEST WILL ALSO READ THE 
9324 : 5129 IVE TYPE REGISTER FOR ITS 
9305 ; 31 0 INITIAL REGISTER VALUE. 
9 § : 51 : ' IMPLICIT INPUTS: | 
9328 : 5133 THIS FLAG IS NEEDED DUE TO THE UNIQUE 
9329 : 5134 i MANNER IN WHICH THESE REGISTERS 
2 d 51 . MUST BE READ. 
9 g 2139 i RD_DATA 
9333 : 5138 i LOADED BY THE READ REGISTER ROUTINE 
9334 : 5139 AND CONTAINS THE DATA PATTERN READ FROM 
3 £ 3140 THE REGISTER (REPRESENTS BAD DATA). 
? : side i DRIVE TYPE 
8; 5143 | LOADED DURING THE INITIALIZATION CODE AND 
9339 : 5144 i STORES THE EXPECTED CONTENTS OF THE DRIVE 
3 : 145 / TYPE REGISTER. 
; 5146 — 
3 : ate Local 
3 : 3149 TST_PAT, 'TEST PATTERN 
; 5150 ERR-FLG, ‘ERROR FLAG PASSED TO ROUTINE 
; 5151 index ‘POINTS TO REG PRESENTLY BEING TESTED 
; 13¢ CLR_DATA, ‘STORES CALCULATED REGISTER CLEAR DATA 
B 15 SAVE, iTEMPORARY STORAGE LOCATION 
9349 : 134 DODU_FLG: iDROP UNIT FLA 
9 24 : 132 CLR_THRESHOLD; ‘CLEAR ERROR PRINT THRESHOLD 


as a eee 


CZMLADO ML~11 
T6 TEST CODE S$ 


o8e7 3ML4AD 





LOGIC 
ECTION 


a 
FAVS SSN 


GS 


MAANAAAAA AAU 
SDE ae ee 
w 


MMMM AMAIA Aan 
52.0 0.09000900 60 00 00 000000 IIIA 


ond and and aed ead amd and and od 
© 
Wa 


WINS 


Ww 


PANAMA AMI MUMIA 


TEST MACRO M1113 30-MAR-82 11:18 


TEST CODE SECTION 
ML_REG (19, FORCE_HI] = %0°177777': 
DODU_FLG = ZERO; 

TST_PAT = ONES: 


incr TWICE from 0 to 1 do 
begin 


incr REG_SEL from 0 to 10 do 
begin 


cLR_MBUS; TST_PAT, .REG SEL 
CLR-DATA = (.AI) or (. IGNORE) 


K_ 1 
PAGE 233 


index); 


RD_REG (.CLR_DATA, .REG_SEL, ERR_FLG); 


if .ERR_FLG IS_SET 
then — 


begin 

CMP. THRESHOLD: 

selectone .REG_SEL of 
set 


CO, 1, 2 


3. 9, 10] : 
ERRDF (6, ASYNC, 


(4, 5, 8) 


DUMPER) ; 


ERRDF (6, SYNC, DUMPER): 


[6 to 7] 


ERRDF (6, ARR_DAT, DUMPER): 


PRINTB (FIV_FMT, PHR_4 


ENDSUB; 
end; 


TST_PAT = not .TST_PAT; 
end; 


ML_REG C19, FORCE_HI] = ZEROES; 
; 
: 
: 


NOW TEST THE DRIVE TYPE REGISTER 


29-Mar-1982 16:23:04 
So -Mara 1985 16 
'CLR DATA FOR MLPD IS ONES 
‘BACKGROUND PATTERN 


‘REPEAT LOOP TWICE 


:TEST THIRTEEN REGISTERS 


‘WRITE REGISTER WITH BACKGROUND 
*CALCULATE THE CLEARED DATA PATTERN 
‘CLEAR THE R 


‘READ THE REGISTER FOR THE CLEARED DATA PAT 


‘SEE IF READ FOUND AN ERROR 


IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG 


‘COMPARE ERROR PRINT THRESHOLD 
‘FIND WHICH MODULE FAILED 
‘ASYNC MODULE FAILURE 

‘SYNC MODULE FAILURE 


!ARRAY DATA MODULE 


e WRD_12, WRD_52, FNC_23, WRD 56): 
PRINTB (FMT-16, .ML_REG C. index, REGISTER_ADDJ. ~CLR_DATA, .RD_DATA): 
DODU_FLG = ONE: 


‘REPEAT WITH COMPLIMENT BACKGROUND PAT 


‘RESTORE MLPD FORCED_HI 


TOPS-20 Bliss-16 V2(212) 
21:03 PA:<NEALE>ML4AD.BLI.4 (59) 


SEQ 0216 


ee 
a ee see 


ett ML-11 LOGIC TEST 
16 TEST CODE SECTION 











1 
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29-Mar-198 
59-Mar-19 


16:23:04 
16:21:03 


TOPS-20 Bliss-16 V2(212 


‘COMPARE REG CONTENTS TO CALCULATED VALUE 


‘DROP THIS UNIT IF DODU_FLG IS_SET 





9409 ;ML4AD 
9610 ; TEST CODE SECTION 
att : 5 if .MLDT neq .DRIVE_TYPE 
9415; 5210 then 
9414: §211 begin 
9415 : 5 1g ERRDF (113, ASYNC, DUMPER): 
9416 ; 521 PRINTB (TWO_FMT, REG 7, PHR_4);: 
9417 : 5214 PRINIB (FMT_2, .DRIVE_TYPE,~.SAVE): 
is : 5215 end; 
9419 ; 5 16 
9420 : 52017 if .DODU_FLG IS_SET 
9421; 5 18 then 
94 ¢ s 521 begin 
9425 : 5220 D (.ML_LUN); 
94 ¢ ; 5221 DOCLN; 
9658 | 2558 , 
of , : 5224 ENDTST; 
3, .SBTTL $17 TEST CODE SECTION 
9436 033512 004167 151074 $17: JSR R1,$SAVE5 
3% 3351 527 000006 SUB 
06 1616 0 P.CNT 
9439 ( 565 177777 162102 MOV #~1,ML.REG+232 
rh 3 177777 V #=1,R2 
4g R1 
43 ¢ 1$: R4 
44 ( 6 4 ; 2$: 
45 ¢ 0 161666 #40, aML.REG+40 
4G 5703 162250 ML bur R3 
47 ( 703 177770 #177770, R3 
48 777 000007 161650 REG+40 
49 ¢ 377 161644 EG+4 
| Osseo Br0eee 
‘ ; 606 748 000012 
¢ i$ 171506 
' ¢ 5606 00001 
NSzA; 
N34 56 
Rae 154 AL :REG+2(R3) .RO 
) 336 MOV ML .REG+2(R3) ,R 
33636 13648 BIS ML .REG+6(R3) RO 
¢ MOV RO.6(SP 
63 033646 161570 BISB #40, aML.REG+40 





TST.PAT,* 
REG.SEL,* 


; INDEX,* 


INDEX, * 


> *,CLR.DATA 


) 
PA:<NEALE>ML4AD.BLI.4 (59) 


SEQ 0217 


5168 


5169 


: 


SEQ 0218 


1 
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TOPS 
PA:< 

5171 
5173 
5175 
78 
82 
5178 
5185 
5178 
5188 

5191 
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ay wu & nonwMm WH "no Ww WH “ny wm 
1S ee 009 oO oO 0 Oo o © 
a« 
ww & ww Ww tay Ls 
oe o wo ec = f= « =e = & ec ¢< 
*e *%e *e ®*e *e *e *e *e ee © ®e@ %e@ ee %e ° ee %e *e *e ® 
5 
— 
s $$ 
obs me 
~~ 
a 
®* wh Wana « a | 
~ BREESv Scag ce G&G mE oe nS Eee 
Ee SL a a eS hae Ph 
us SOM SEK OWT 8 PME MTATRH FOTO TA? 
ad PROT e hat —aamace ane se noe ~ ER EOennon a Spar Wy 






puSSasrenyveve nveuenep Sees pueuaySeee, pup nteeennns 





sMLGAD 


3$ 
4$ 
5$ 
6$ 
7$: 
8$: 
9$: 
10$: 


~ _ So 

= S 

o o 

_ - 

NOK.O wv? w-OoO cw M- tw “nw oO ~ wTrooe 

- ee 
hod - Ooooeo 
or. 





SAS NOSIS OSe SS 


3 
; 
239 
tf 
As 


: : *- = = a a 
wT =) 4> iss FOTOS LARK 
BUSS SNS SH SSNGSSNSR SSR 





NS Teor s 
So2csSss —~OOOoOo eee Sl So eS Oo Vee 
ro NLSSOMONSNSYLONISyyorvs Owe ~ Ic elat\ lo SOx 
MOOK = >. oo ad IF ar Tiny +0 te Sy" + >. 
SOOO SRR RR RRNA ARR RRR SSS SO SS nso ISOOCSSOOSO-— 
WA aA hal ~ = 





we ee ee - 
= PP PP PP OOOO OOO OOOO SCOOCOCOSOOOSOOOOSOOOOeOSOeeeaee- 





w RRS RS wn HOU win 
SEER ASSES Borie: SISSSSSISSSIS 


1 
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SEQ 0219 


MAW 
g > OROe 
a oe Ge orr= 
i in nnAW 


: CLR.DATA,* 


& 


TEST CODE SECTION 


sPMLGAD 


11$: 








> 2 -_ - > —- = 
oo E= ~~ he ¢- = . 
CP ee = 


COOMA ° ~~ ~ +73), 
FOAAR AAC RAPA 


“+ 


¥ oad 
] 
- -—— 
ws mw 
oe 
& 
ae x ° 
. & 
OM QAusuw 
OS meme 
wis WSs 
ce eRe 
ee °%e ®e@ &e %e 





FIOM OO 0ON0O-rO0or 


CaCRACaCIPaCaTt ae 





5505 
5212 


$0. DRIVE. TYPE 


REG+25 
eREG+1 


ak 
ans 


ML 





4 

Q 

e 4 
aa 
ee ee 





® 


CSTR. 
oe ftw 


sore <S 
erugese 








= 
2 





* = ~- ~ 


i ig oe oh 3 8 ok tt at 
~ ~ ~ a | ee &  & &. 6. 8, NP AF WF WP NT Pe 


; SP,* 





15$: 


a ea 
oes 


: DODU.FLG 





qa 


re SP > Fee sh OA O'S 








= 





$ 


2388S=>---$>>>>-30. $3 
SgssSSeessssessaaseuwes 








5225 


LS 
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767 177132 


! <BLF /PAGE> 


TEST CODE SECTION 


16$: ADD #6,SP 
RTS PC 


: Routine Size: 209 


words 
: Maximum stack depth per invocation: 


4 ~SBTTL 17 TEST CODE SECTION 
$: JSR PC.$T7 
TRAP 


ROR 
BLO 1 
RTS PC 





: pout ne Size: 6 words 
: Maximum stack depth per invocation: 


25 words 


53-mar=t 





| 


SEQ 0220 
TOPS | 
SF: 08 PA:< 
5102 
5222 
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T? TEST CODE SECTION SEQ 0221 
sML4AD r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
S17 ; TEST CODE SECTION so-mar= 1985 16:37:08 PA:<NEALE>ML4AD.BL1.4 (60) 





' 
i 

BGNTST; 

144 

TEST NUMBER: TST 8 | 

' TEST NAME: REGISTER SELECTION TEST 


i TEST ett 
THIS TEST TESTS FOR UNIQUE REGISTER 
SELECTION BY FIRST WRITING A BACKGR 
PATTERN INTO ALL READ/WRITE REGISTERS 


IT THEN WRITES A COMPLIMENT 
BACKGROUND PATTERN INTO ONE pi) ae 
NING UNWRIT Li 


AND READS 
ee FOR AN UNCHANGED 


ono 


—y 








VIMAR 
Wwies 













THIS PROCEDURE IS REPEATED UNTIL ALL 
REGISTERS HAVE BEEN sy He. WITH A 
COMPLIMENT BACKGROUND PATTERN. 





PRRRAR 
ee 






6 
4 

4 

5 

5 

5 

53 local 

5 DODU_FLG, ‘DROP UNIT FLAG 

5 TST_PAT, iTEST PATTERN 

5 ERR FLG. ‘ERROR FLAG PASSED TO ROUTINE: 

5 x; ‘POINTS TO REGISTER PRESENTLY BEING TESTED. 
36 CLR_THRESHOLD; 'CLEAR ERROR PRINT THRESHOLD 

61 a 

62 DOOU Fle = 7 ZERO; 

53 TST PAT = %0°125252': ‘LOAD TST_PAT WITH ALTERNATE 1°S & 0°S 

54 WRT-CS1 (.TST_PAT, 03: ‘WRITE A BACKGROUND INTO ALL THE DIRECTLY 
55 WRITER (.TST PAT, 6): iACCESSABLE READ WRITE REGISTERS 





WRT_DA (TSI-par: ); 


AT’ 8 
TPAT, 13); 
& CTSTCPAT. 14); 


iner cnt 1 from 0 to 4 do ‘WRITE A COMPLIMENT PATTERN INTO ONE REGISTER 
TST_PAT = not .TST_PAT; ‘GENERATE THE COMPLIMENT PAT 
case + al from 0 to 4 of ‘SELECT THE REGISTER TO WRITE INTO 
se 


PKROO 
SOc ; 


PVP API PUPILS SSSA TATA ATA 


Jaco 


em 
OL LLL eee enssieheenpeatsnsesstonsnsessessesssunssstnensnneesensneneesesseseumrereeeeerees-......... — 





2 
CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 339 
Tt? TEST CODE SECTION SEQ 0222 
r=1 16:23: TOPS-20 Bliss-16 V2(212) 
TEST CODE SECTION Sooner 1585 18357503 PA:<NEALE>ML4AD.BL1.4 (60) 
: 5 7 [0] : 
: 527 WRT_CS1 (.TST_PAT, 0): 'FIRST PASS WRITE COMP PAT TO MLCS1 
: 5 (1) : 
: i WRT_ER (.TST_PAT, 6): 'SECOND PASS WRITE COMP PAT TO MLER 
; 4: 
; 526 [2] : 
: 5585 WRT_DA (.TST_PAT, 3): 'THIRD PASS WRITE COMP PAT TO MLDA 
$ (3] : 
; : WRT_PA (.TST_PAT, 8): !FORTH PASS WRITE COMP PAT TO MLPA 
: > [4] : 
: 3 : ; WRT_E1 (.TST_PAT, 13): ‘FIFTH PASS WRITE COMP PAT TO MLE1 
Pi j es; 
$ 525 
: 3 3 TST_PAT = not .TST_PAT: 'COMPLIMENT TST_PAT BACK TO BACKGROUND 
3698 ; 3 x. incr CNT_2 from .CNT_1 + 1 to 5 do 'NOW READ THE REMAINING UNWRITTEN REGISTERS FOR AN 
9694 : : begin ‘UNCHANGED BACKGROUND 
9696 : 3536 case .CNT_2 from 0 to 5 of ‘SELECT THE REGISTER TO READ 
9697 ; 530 set 
9699 350 1: 
36 ( : ee RD_CS1 (.TST_PAT, index = 0. ERR_FLG):; !READ MLCS1 
g g: 105 (1) : 
9703 : 5 06 RD_ER (.TST_PAT, index = 6, ERR_FLG): !READ MLER 
9708 ; 5 08 (2) : 3 
9706 ; 3 RD_DA (.TST_PAT, index = 3, ERR_FLG); '!READ MLDA 
: 11 (3) : 
4 09 5 le RD_PA (.TST_PAT, index = 8, ERR_FLG): !READ MLPA 
11; 14 }: 
i ; 13 RD_E1 (.TST_PAT, index = 13, ERR_FLG): !READ MLE1 
714: i3 (5) : 
15; 18 RD_E2 (.TST_PAT, index = 14, ERR_FLG): !READ MLE2 
: 18 ; LF tes; ; 
18 : 1 if .ERR_FLG IS_SET 'SEE IF READ FOUND AN ERROR 
g : 36 _ in 
; 34 CRB. THRESHOLD: . !COMPARE ERROR PRINT THRESHOLD 
: 26 selectone .CNT_2 of oe Saeiins 
: ¢ ser % 
9798 ; 2s (0 to 2] : 


oe eee + ee - 


TS ne mem 


2 
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CZMLADO ML-11 LOGIC 
1? TEST CODE SECTION SEQ 0223 
9 ; r-1 16:23: TOPS-20 Bliss-16 V2(212) | 
: TEST CODE SECTION S$-mar=1963 16:51:03 PAcSNEALESME LAD BRT < Zoo» | 
1 ERRDF (110, ASYNC, DUMPER); !ASYNC MODULE FAILURE | 
(3 to 5] : 
ves ERRDF (110, ARR_DAT, DUMPER); !ARRAY DATA MODULE FAILURE 


PRINTS (THR_FMT, WRD WRD_37, WRD 





PRINTB CFATT16. ML REG Co noden’ REGTSTER_ADDJ. «WT_DATA, .RD_DATA); 
DODU_FLG = ONE; 
end; 
end; 
ENDSUB; 
{f -DODU_FLE IS_SET !DROP THIS UNIT IF DODU_FLG IS_SET 





in 
(.ML_LUN); 











DOCLN: 
end; 
ENDTST: 
-SBTTL $T8 TEST CODE SECTION 
150216 $78: JSR R1,SSAVES : 5224 
TST -(§P) 
160774 P.CNT ; 5257 
900040 161032 '* $989 
1414 - 
7 161014 
— DODU.FLG 5 
125252 : &, TST.PAT é 
: TST.PAT,* 5 
165240 
: TST.PAT,* 5265 
Toscos 
; TST.PAT,* 5266 





000003 





F 
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SEQ 0224 | 
sMLGAD :23: 
; TEST CODE SECTION r=1982 16:37:08 Paes 
OV TST.PAT 
© e * 
OV § 5267 | 
mov -ST.PAT 
es e * 
MOV 3 5268 
HOV TST.PAT 
© « o* 
~ ; 5269 
tin CNT.1 
2$: COM : TST.PAT $373 
2 MOV : CNT.1,* 5275 
+4 ADD 
78C 3$: - WORD 
; Jt - WORD 
4 4) - WORD 
: Dh . - WORD 
78C 43: MOV 3: TST.PAT,* 5279 
308 CLR 
310 _ 
9811 5S: MOV ; TST.PAT,* 3 a3 
mB1e MOV 
9814 aR 
615 6S: MOV : TST.PAT,* ne 
> MOV 
5817 aS 
< 4h BR : 
9615 . = : TST.PAT,* 
0° J 
78 ¢ Bm ; 
8 8s: ; TST.PAT,« 
555e ask 
3¢ 9$: COM : TST.PAT 
+ yo R3 : CNT.1,CNT.2 
10$: ref RO : CNT.2,* 
ADD 11$(RO) .PC 
11$: -WORD 1 noe 
«WORD 15$-11$ 
-WORD 146$-11$ 
eWORD 15$-11$ 
- WORD i mB 
WORD 17$-11$ 
128: MOY R4,-(SP) ; TST.PAT,* 






—_— neers 
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gigseaeas: sages 20.0.0.0. 


Rs 
o> 4 
+4) 
+7 





~~ Pr 


> me ae 





000001 


160264 


sMLGAD 


13$: 


148: 


15$: 


16$: 


17$: 


19$: 


bows — ee io Ls c. — orm 
BER eamae reese  Seeees sy eeee sy esses aye sess egeace 


Pa 
‘om a 


329 





TES? CODE 





=(SP) 
#30.-(SP) 
SP, (SP) 

PC RD.CS1 


SECTION 


INDEX 
ERR.FLG,* 
TST.PAT,* 
* , INDEX 
INDEX ,* 
ERR.FLG,* 


TST.PAT,* 
& , INDEX 
INDEX, * 


; ERR.FLG,* 


TST .PAT,* 
* , INDEX 


ERR.FLG,* 


TST.PAT,* 
* , INDEX 


: INDEX, * 


ERR.FLG,* 
TST.PAT,* 
® , INDEX 
INDEX ,* 


; ERR.FLG,* 


ERR.FLG,* 


CNT.2 


; CNT.2,* 


59-ma 


r-1 
r=1 


962 1 


6 
6 


3 


SEQ 0225 
3:04 TOPS 
1:03 PA:< 


| 
$806 


i Ee a 





eta 





TOPS 
PA:< 
326 
5333 
5336 
5337 
3 

323 
396 
S272 
3575 
$32 
3 
347 
5350 


SEQ 0226 


39-Mar-1962 16:91:05 
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y See Ss seh 6 7S 
= ofbntuS. ctheses 2 sce eve ofa co sg 4 5 
DS Robt ott RESSSSS sac nooo Teves emntee 
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7 pe bk 8b nee T > ICUS AMM erin TAWA De 





“¢ aA 





ae ms 
2 
EST MACRO M1113 30-MAR-82 11:18 PAGE ba4 





ZMLADO ML-11 LOGIC T 
8 TEST CODE SECTION SEQ 0227 
sMLSAD -1 16:23: TOPS | 
$358 : TEST CODE SECTION rt 18: 1:08 PA:< | 


ge sit Sm ™ © ee : a 


: Routine Size: 256 word 
: Maximum stack depth per "dnvesattons 28 words 


$369 -SBTTL T8 TEST CODE SECTION 


9975 988370 006767 176776 — = «se 535 
997 r 1 ; TRAP F 7 . 
997 BLO Ofs«éd0S 
3979 20 RIS ss PE 

1 ; Routine Size: 6 


words 
: Maximum stack depth per invocation: 0 words 


; 5355 !<BLF/PAGE> 





TEST MACRO M1113 30-MAR-82 11:18 PAGE 45° 
















a 
v.54 


CZMLADO ML=11 LOGIC 
T8 TEST CODE SECTION SEQ 0228 

9991 :ML4AD r- TOPS=20 Bliss-16 v2(212) 

993 TEST CODE SECTION $3-mera1983 Te: $3: 203 PA: <NEALEDMLGAD BL <& (61) 

999% ; 5 

9995 ; 5 38 hex sar 

3999 : é 35 - 

ps4. ° 5360 ‘+44 

13399 : 5361 | TEST NUMBER: TST 9 

10001 ; a3 i TEST NAME: PRINT SERIAL NUMBER 

10003 ; 55 | TEST DESCRIPTION: 

10004 : 66 | UPON A YES RESPONSE TO THE 

10005 ; 7 SOFTWARE QUESTION ‘PRINT SERIAL NO? 

10006 ; 68 | PRINT OUT THE DRIVE UNDER TEST 

10007 ; 9 | SERIAL NUMBER. 

1C 008 ; 70 =|! 

10009 ; 71 !=- 

10010 ; : Le: 

10012 ; 5374 —_ 'STORES DIGIT 3 OF SERIAL NUMBER 

10€ 18 F 75 D2, 'STORES DIGIT 3 OF SERIAL NUMBER 

10014 ; 26 D1, ‘STORES DIGIT 1 OF SERIAL NUMBER 

10015 ; ? D0; 'STORES DIGIT 0 OF SERIAL NUMBER 

i ae ; ; if .PRSN IS_SET ‘SEE IF WE PRINT THE SERIAL NUMBER 

10019 : 81 in 'PRINT THE SERIAL NUMBER IF THE REPLY WAS YES 

10020 ; f DS =". sus -$N3 ‘LOAD DIGIT 3 OF SN INTO D3 

10021 : | a ‘LOAD DIGIT 2 OF SN INTO D2 

1002 ; i = SM ‘LOAD DIGIT 1 OF SN INTO D1 

1005 ; 85 ‘LOAD DIGIT 0 OF SN INTO DO 

10025 ; 55 if ((.D3 gtr 9) or (.02 gtr 9) or (.01 gtr 9) or (.D0 gtr 9) 

10086 2388 sc ‘SEE IF DIGITS ARE TO BIG FOR COVERSION 

10088 3 9 wise MINTS (FMT_25, PHR_IS. .MLSN) !PRINT OCTAL SN IF TO BIG 

i 003¢ 3 96 PRINTS (FMT_26, PHR_15, .D3. .D2, .01, .D0); | ‘ELSE PRINT DECIMAL SERIAL NUMBER 

10032 ; x end; 

10033 ; 95 

4 : 96 ENDTST; 

10035 | -SBTTL $19 TEST CODE SECTION 

106 167 147144 $79: J RI ; 

10¢ 0 said 0361 rer 144764 000001 tmp PRENSA : 

10045 1101 BNE 4$ 
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aL 
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R1 
R1 
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eke 


53559353: 85g55:Sepeseseseecees cecenaea Sean 
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1$: 
2s 

3$: 
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ee ee 





11 words 


72 words 
depth oer invocation: 


; Routine Si 
>; Maximum stack 
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. 
8 


Ic T 
T9 TEST CODE SECTION SEQ 0230 
10103 ;ML4SAD 1 16:23: TOPS-20 Bliss-16 Vv2(212) 
: 194 ; TEST CODE SECTION a la t+ 18:57:98 PA:<NEALE>ML4AD.8L1.4 (61) 
101 
: 116 ‘ 19 -SBTTL T9 TEST CODE SECTION | 
10115 4 767 177554 1$: JSR PC.$T9 : 5394 
1 116 1 TRAP 
1011 ROR 
1 438 36 1 BLO 1$ 
} 1) 20 RTS PC 
10121 ; Routine Size: 6 words 
! , $ : Maximum stack depth per invocation: 0 words 
101 
101 s 5397 '<BLF/PAGE> 


“~Am- 

On 

= 
ee at 
Ww 

—_ =f 


oo 


—_) od 


wd eed 


rs 


S 
RRA 


rs 


ww 


=S 
S 


ay Weeth thah 
yyy 


kd ed ed ed el eed ed ed ed ed ed ec ed ed 
ed ed ceed ceed ceed eed ed eed eed 
Ww 


SOOSOSSOSOSOSOSSOSCONOOCOOCOCOO 
hd od td td dd 
ee 2 
MVM 


oo 
MUM & 


MMMM AMAIA MMIMIUIAUAUAL 
PEPER E EEE EE PRR ERR RRR RRS 


lh cel el lt rl cl el el cel el cl ely lt el cl el el lh el ty lh cee el lh ell el ei ce enh ed el ed ed ed 
eed ed ed eel ed ed ed ed eed ee ed ee eed eed 


SOOOSSSSOSOSOSSOOSOOSOSOOOOCOOOCCoO 


eee cold ed coeds ed mom emt caneh cnc od 


TRawos 


wm 2 
TEST MACRO M1113 30-MAR~82 11:18 PAGE 248 
SEQ 0231 






1 16:23: TOPS-20 Bliss-1 (212) 
r= 16:63:08 ss-16 V2(212 


TEST CODE SECTION r-1 PA:<NEALE>ML4AD.BLI.4 (62) 


‘ 
BGNTST: 


$3 


544 

: TEST NUMBER: TST 10 

TEST NAME:  C=BUS PARITY TEST 
i TEST DESCRIPTION: 


EST THE CONTROL BUS PARITY 
DETECTION AND GENERATING BY: 


S398 








i 
i 
i 
410 | 
411 | 1. WRITING BAD PARITY TO DEVICE 
41g AND TEST CPAR SET. 
4 ! 2. WRITING GOOD PARITY TO DEVICE 
15 ; AND TEST CPAR CLR. 
3 i 3. READING DEVICE AND TEST GOOD 
18} PARITY GENERATION BY READING 
19 } MCPE CLR. 
; i 
4 local 
4 SAVE, ‘TEMPORARY SAVE LOCATION 
5 TST_PAT; 'TEST PATTERN 
if -PAR_DIS IS_NOT_SET 'SEE IF PARITY IS DISABLED 
en 
begin ‘BEGIN IF PARITY IS ENABLE 
TS?_PAT = %0°125252": iALTERNATING 1, 0 PATTERN 
$ incr TWICE from 1 to 2 do ‘REPEAT LOOP TWICE 
in 
CLR_MBUS; ; 
5 PAT= ONE: 'GENERATE EVEN PARITY BY SETTING THE PAi BIT 
MLDA = .TST_PAT: IWRITE BAD PARITY ON CONTROL BUS 
if .CPAR IS_NOT_SET ‘READ CPAR BIT SET 
440 = in 
441 begin (7, ASYNC, R): ‘ERROR IF NOT SET 
aie PRINTB (THR_FMT, WRD_5, WRD_7, WRD_9); 
444 ? 
445 CLR_MBUS; 'CLEAR OUT PAT BIT 
446 MLDA = .TST_PAT: ‘WRITE ODD PARITY CONTROL BUS 
4 if .CPAR IS_SET ‘READ CPAR BIT CLEARED 
4 then 


N 2 
ML~11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 249 


CZMLADO Ic 
1 TEST CODE SECTION SEQ 0232 








1c s TOPS-20 Bliss-16 V2(212) | 
HH ‘rare TEST CODE SECTION PA:<NEALE>ML4AD.BLI.4 (62) | 
‘ § 7 | 
10191 ; aT PRIDE. (8, ASYNC. DUMPER) ; ‘ERROR IF SET | 
He ; 343¢ PRINTE (THR_FMT, WRD_6, WRD_7. WRD_9); 
10194 ; ‘ 
191 ; i SAVE : MAL DA: 'READ A REGISTER FROM DUT 
13g : 4 a if .MCPE 1S_SET 'SEE IF GENERATED GOOD PARITY 
123 5 54 then i“ 
1¢ ¢ : : rt Ha Me (9, ASYNC, DUMPER): ‘ERROR IF MCPE IS_SET 
if ; F iss PRINTB (THR_FMT, WRD_6, WRD_7, WRD_8); 
1980 ; 63 TST_PAT = .TST_PAT“ONE; REPEAT WITH SHIFTED DATA 
1¢ vE : is 
)209 ; l 
: 10 : 470 ose ORINTB (TWO_LFMT, WRD_7, WRD_53): !JUST PRINT MESSAGE IF PARITY IS DISABLED 
i i : 472 ENDTST: 
f -SBTTL $T10 TEST CODE SECTION 
14671 $710: JSR R1,$SAVE3 | : 
ye 15614 PAR. DIS ; 
De #-52526.R1 : *, TST.PAT 
1 : *, TWICE 
ye 157554 1$: #4 SAL -REG+40 | ; 
Ne # RO 
Dz 157536 a oaAtl .REG*60 
De QML REGS 
5 econ R1, aM REESSO. : TST.PAT.* 
y 157532 BITB #10 .@AL .REG+60 ese 
1% "WORD 
WORD 
; e WORD 
i 3 1061 MOV : 
D24C 1 MOV 
1 MOV 








ML~11 Lee TES 


CZ 
$T10 TEST CODE SECTION 


ed ed 
x¢ 


SBSao 





Si 


_—s 
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ON 


Wn 





«* 





i 
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y+ 









a 
AY 


— = 
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"ail 
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157436 
157420 


157422 


sMLSAD 


23: 


4$: 


5$: 


SESH GRRE GUOELLU gg FUSES AGE GENELEN  PBDRE INCE eae 


ee 
+ Ww 





TEST CODE SECTION 
A gear 4 o~(SP) 





G+40 
R1,@ML .REG+30 
#10, aML .REG+60 








14 
#12,SP 
R1 





fer 
~ 
~ 


TST.PAT,* 


* , SAVE 


SP,* 
TST .PAT 
TWICE 
TWICE ,* 





SEQ 0233 


S$-mar-1989 16:91:08 





TOPS 
PA:< 


ER 
oN 


| 





: as 
CZ ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE S51 
$T1 ODE SECTION SEQ 0234 | 
10 sML4SAD 16 TOPS 
if 3 TEST CODE SECTION $o fers? 16 B's: :03 PA:< < | 
1 12746 01 MOV ae, aad] 7 (SP) 
i 13748 00008 mov RB 
1 1 MOV SP’RO” ; SP,* 
i 000010 ie sO. SP 
i 000209 RTS . : 5396 
1 : Routine Size: 139 words 
: : Maximum stack depth per invocation: 9 words 
: 
: 110 -SB8TTL 110 TEST CODE SECTION 
1 004767 177346 1$: JSR PC,$T10 - : 5470 
1 TRAP 
1 ) ROR 
1 BLO 1$ 
: 000207 . RTS PC 
1 : Routine Size: 6 words | 
: : Maximum stack depth per invocation: 0 words 
1 
19 5473 !<BLF/PAGE> 





ee 





“om 








3 
EST MACRO M1113 SO-MAR-82 11:18 PAGE 352 


































2MLADO ML=~11 LOGIC T 
10 TEST CODE SECTION SEQ 0235 
1 sMLGAD r-1982 16:23:04 TOPS-20 Bliss-16 Vv2(212) | 
19 ; TEST CODE SECTION Soar 1388 16:21:03 § PA:<NEALEDML4AD.BLI.4 (63) | 
ee: BS 

: ; ret BGNTST:; 

10 : 78 '+4 

3 : 479 | TEST NUMBER: TST 11 

19 é : 5481 | TEST NAME: © MEMORY SIZING TEST 

10 34 : ; TEST DESCRIPTION: 

1 : 485 / THIS TESTS THE ML11°S SIZING 

1 : 5 i LOGIC BY COMPARING T 

1 : 5 i OPERATORS INPUTED NUMBER OF ARRAYS 

; 5488 | PRESENT TO THE ML11 S12 ING 

1036 ; 5490 THE DRIVE IS DROPPED ON DETECTED ERRORS. | 
10 52 : 5491 | IMPLICIT INPUTS: 

10363 ; 5492 | 

10364 : 5493 OP_NUM_ARR: 

10365 ; 5494 i LOADED DURING INIT CODE AND 

1 : 495 } STORES OPERATORS INPUT TO THE 

1 : 5496} SOF TWARE 10N: 

10368 : 5497 NUMBER OF ARRAYS PRESENT? 

10369 ; 5498 =! 

10370 ; 5499 =! 

10371 ; 55 lon 

1¢ ie: : 5501 

1C 5 5502 B8GNSUB; 

i ef ; 3207 CLR_MBUS; 

U 6 : 3306 if (.OP_NUM_ARR + 1) neq .ML_NUM_ARR !SEE IF DRIVE SIZED SAME NO. OF ARRAYS AS OP INPUTED 

10378 : 5 | 

1 ag : 3508 E (10, ASYNC, DUMPER): !1F NOT EQL THEN ERROR AND SET DODU_FLG 

10380 ; 22 PRINTB (TWO_FMT, FNC_1, WRD_14): 

1 81 : a1 PRINTB (FMT_2, (.0P_RUM_ARR™+ 15, .ML_NUM_ARR): 

1 Tt : 1 ’ 

10384 ; 518 enpsup; 

10389 ; 5514 ENDTST: 

103% -SBTTL $111 TEST CODE SECTION 

1 is o3e308 104162 146232 $111: JSR Ri .SSAVE2 ; $472 
10396 152 000040 157126 BISB £60, aML.REG+40 : 2609 
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157110 
























sMLSAD 
: TEST CODE SECTION 
MOV 
BIC 
BICB 
BIS8 
MOV 
INC 
MOV eel 
ASR 
ASR 
Sus OR 
alc # fp Re 
= Re 
trap $8 
-WORD 12 
«WORD ASYNC 
-WORD DUMPER 
MOV #URD.14,-(SP) 
MOV #FNC.1,-(SP) 
MOV #10. FAT. =(SP) 
MOV 7 (SP 
MOY » 
TRAP 
MOV 
ASR 
ASR 
ASR 
SeAR 
BIC 
MOY 
MOY 
INC 
MOV 
MOY 
ing 
23: TRAP 
ROR 
BLO 
RTS 





; Routine Size: 67 words 
> Maximum Stack depth per invocation: 


10 words 


so-nara1983 16: 


SEQ 0236 


TOPS 
$308 PA:< | 


5505 


5508 


5509 


5510 





LS enna oesssetstsstenesasietenssimsiosieimnemmesmmessie 


=. 
~11 LOGIC TEST MACRO M1713 30-MAR-82 11:18 PAGE 254 
CODE SECTION SEQ 0237 
a -SBTTL 111 TEST CODE SECTION 
767 177566 i$: JSR PC,$T11 : 

TRAP 5513 
ROR 
BLO 1$ 
RTS PC 


| 
| 
: Routine Size: 6 words : 
: Maximum stack depth per invocation: 0 words 


5515 !<BLF/PAGE> 





LLL Se 


CC <£—_£<£_<$£$<$_ eee teenies 


























‘ERROR AND SET DODU_FLG IF STILL SET 
WRD_19); 





n 
(11, ASYNC, DUMPER): 
PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_2. 


. on 
~ 


if .ILF IS SET 'SEE ILF SET 
then " 


LAL ALL 


ASYNC, DUMPER): ERROR AND SET DODU_FLG IF SET 
» WRD_3, PHR_S, WRD_11. FNC_2, WRD_19); 


¢t?-¢+ 


~ 





Vv 





*y 





if .OPI IS_SET 'SEE IF CPI SET 
then 


LALA ALAA 
wk val Sb an Oa 





in 
PRADF (13, ASYNC, DUMPER); ‘ERROR AND SET DODU_FLG IF SET 
PRINTS (FIV_FMT, WRD_4, PHR_S, WAD_11. FNC_2. WRD_19); 


3 
CZML 20 ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE $55 
T11 TEST CODE SECTION SEQ 0238 
10481 : r-1 16:23: TOPS-20 Bliss-16 Vv2(212) 
: TEST CODE SECTION a ala 3 18:53:08 PA:<NEALE>ML4AD.BLI.4 (64) 
10488 a1 i 
1 : 31 BGNTST: 
10288 3335 4 
: 35 . TEST NUMBER: TST 12 
: 3 § . TEST NAME: | NO-OP FUNCTION TEST 
95 : 5 ; TEST DESCRIPTION: 
10495 : 33 i TEST IF THE DRIVE CAN PERFORM 
1 3% : 3 i A NO_OP FUNCTION WITH OUT 
97 : 3 HANGING THE DRIVE. 
10499 2234 i A NO_OP FUNCTION IS WRITTEN 
10500 : 33 ; INTO MLCS1. 
10501 : 533 Ci THEN GO AND ERROR BITS ARE 
109¢ ; 3 : CHECKED FOR CORRECT STATES. 
504 : 
183 ; ; 7 THIS UNIT IS DROPPED ON DETECTED 
0507 ; i IMPLICIT INPUTS: NONE 
0509 ; 1} 
; 0 : 4 Jan 
9511 ‘ 
12 : BGNSUB;: 
5135; CLR s 
0514 ; mcs “hoop: 'DO A NOOP FUNCTION 
0515 LAY (ONE_US); (DELAY 1 US 
if 13 : if .GO IS_SET 'SEE IF GO STILL SET 
J 18 ; then 
0519 ; 
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SEQ 0259 
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~BLI.4 (64) 
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4AD 
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PA:<NEALE>ML 


16:91:03 


1 


r-1 


TEST CODE SECTION 
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sML4AD 

: TEST CODE SECTION 
ROR RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 


! <BLF /PAGE> 


SEQ 0241 


r=1982 16:31:03 Pace 


Sn ee eee LLL ea se ~~ hel easement 
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C2 -11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 259 
Ti2 ODE SECTION SEQ 0242 

1 3sML4AD r= 16:23:04 TOPS-20 Bliss-16 V2(212) 

1 : TEST CDE SECTION Soa -1985 16:21:03  PA:<NEALE>ML4AD.BL1.4 (65) : 
i : : . | 
106 : § | 
10671 ; BGNTST: | 
1 uw Ps 
10€ Pi i++ 
i's ; TEST NUMBER: TST 13 
10676 : | TEST NAME: © WRITE CHECK FUNCTION TEST 
106 28 i TEST DESCRIPTION: 
10680 ; i TEST IF THE DRIVE CAN PERFORM 
10681 : ' A WRITE CHECK FUNCTION WITHOUT 
1068 ; ; HANGING THE DRIVE. 
10684 ; A WRITE CHECK FUNCTION IS WRITTEN 
10685 : i INTO MLCS1 
10686 ; THEN GO AND ERROR BITS ARE 
10687 ; CHECKED FOR CORRECT STATES 
: 689 : — 
106€ “T¢ : ‘ 
10691 ; local 
1 09¢ DODU_FLG: 'DROP UNIT FLAG 
10694 ; : 
10695 ; CLR_MBUS; 
10696 ; DODU'FLG.= ZERO: 
10697 : FIRST_BLK_XFER (); ‘SET UP A FIRST BLK XFERR 
1065 ; MLCS1~= WRT_CHK; 1DO A WRITE CHECK FUNCTION 

5°." 3 
10700 : if .GO IS_NOT_SET 'SEE IF THE GO BIT GOT SET 
1C ) : then 
10008 a? css. asec. seven ‘ERROR IF NOT SET 
i A ; PRINTS (FIV_FMT, WRD_1, PHR_1, WRD_12, FNC_6. URD 19); 
ie % ; if .DRY IS_NOT_SET 'SEE IF THE DRY IS SET WHILE GO IS CLEARED 

Ta! Py 
1¢ 8 ; in 
10709 : (15, ASYNC, DUMPER): ‘ERROR IF CLEARED 
107i¢ ; PRINTB (Fiv_FMT, WRD_2, PHR_1, WRD_43, WRD_1, PHR_6); 
1¢ 3 end; 
1971 ; DODU_FLG = ONE; 'SET DODU_FLG 
fa. : else 
t ATF : if DRY IS_SET 'THE GO IS SET SO SEE IF DRY IS CLEARED 
hats : 
10720 ; 





ras 
E (16, ASYNC, DUMPER); ‘ERROR IF DRY IS SET 
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ee a — — 
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EST MACRO M1113 Su-MAR-82 11:18 PAGE 560 












ZMLADO ML-11 LOGIC T 

2 TEST CODE SECTION SEQ 0243 

1 :ML4AD r=-1982 16:23: TOPS-20 Bliss-16 V2(212) 

: TEST CODE SECTION Soar -1985 16:53:98 PA:<NEALE>ML4AD.BL1.4 (65) 

1 : PRINTB (FIV FMT, WRD_2, PHR_2, WRD_43, WRD_1, PHR_S); 

} : DODU_FLG = ONE: 

1 : : 

1 : if .ILF 1S_SET ‘SEE IF ILF IS SET 

' $ then “ 

1 : E (17, ASYNC, DUMPER): ‘ERROR IF SET 

: PRINTB (FIV_FMT, WRD_3, PHR_S, WRD_12, FNC_4, WRD_19); 

1 : : 

1 : if .OPI IS_SET 'SEE IF OPI IS SET 

1 5 then 

10789 Bear 

1 : ERRDF (18, ASYNC, DUMPER): ‘ERROR 1 SET 

: PRINTB (FIV_FMT, WRD_4, PHR_S, WRD_12, FNC_4, WRD.19); 

1 : : 

i ; 3648 DELAY (FRTY_US): ‘WAIT FO XFERR TO COMPLTE 

1 : 5645 if .DRY IS_NOT_SET ‘SEE IF DRY IS SETS AFTER XFERR 

1 5 e076 then 

: ; ot begin 

1 : 5649 if .GO IS_SET 'IF DRY IS NOT SET THEN SEE IF GO IS SET 

1 $ 5650 then 

4 : 5651 begin 

I : 365 CLR_MBUS: !IF THE GO IS SET THEN TRY TO CLR GO 

754: 3654 if .GO IS_SET then ERRDF (19, ASYNC, DUMPER) else ERRDF (20, SYNC, DUMPER): 

10756 : 565 'IF GO IS STILL SET THEN ASYNC FAILURE 

057 i 365 PRINTE (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_4, WRD_19); !'ELSE SYNC MODLE FAILURE 
Ps e 

1 : 65 else 

10760 ; 660 begin 

10761 : 661 ERRDF (21, ASYNC, DUMPER): ‘ERROR GO AND DRY BOTH CLEARED 

10762 : 3662 PRINTS (FIV_FMT, WRD_2, PHR_1, WRD_11, FNC_4, WRD_19); 

; , : end; 

10765 : a DODU_FLG = ONE: ‘SET THE DODU_FLG 

i $ end; 

768 : if .GO IS_SET ‘SEE IF THE GO IS STILL SET 

1 OSS 5 then 

1 ; 6 9 begin 

1 771 : sf CLR_MBUS; ! 'TRY TO CLR GO IF STILL SET 

1 78 : zs if .GO IS_SET then ERRDF (22, ASYNC, DUMPER) else ERRDF (23, SYNC, DUMPER): 

10775 : 5675 ‘IF GO IS STILL SET THE ASYNC FAILURE 

10776 : 76 PRINTS (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_4, WRD_19); ‘ELSE SYNC MODULE FAILURE 


* 


eee ee eee 
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ZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 261 
12 TEST CODE SECTION SEQ 0244 

1 ZML4AD r-1982 16:23:04 § TOPS-20 Bliss-16 v2(212) 

18 : TEST CODE SECTION soar 1385 16:21:03  PA:<NEALESML4AD BL 1.4 oS) 

1 DODU_FLG = ONE: 

: end; 

ENDSUB: 

1 if .DODU_FLG 1S_SET !DROP THIS UNIT IF DODU_FLG IS_SET 

1 in 
i DOBU (.ML_LUN); 
1 DOCLN; 
, end; 
: ENDTST: 
i -SBTTL $113 TEST CODE SECTION 
10 165432 $713: JSR R1,$SAVE2 : 5571 
1 TST -(§P) 
1 18: TRAP 2 $ 55 

1 0 156324 BISB #40,@ML.REG+40 : 55 
108 1 MOV mL DUT RI 
108 1 BIC a R1 
108 90000 156306 BICB) =: #7 , AML. .REG*+40 
108 . oe DODU.FLG 

ig iS mov, ana ie fa 
108 1 130386 BT _— : 5604 
108 TRAP : 7 
1 * “WORD }. 7 
10 1 ee #uRD.19,-(SP) 5608 
108 1 MOV = #FNC..4,=(SP) 
10 1 MOV #WRD.12,-(SP) 

Df 1 MOV #PHR.1,-(SP) 

i. 1 MOV WIRD.1.~(SP) 

. 1 MOV = @F IV. FAT, -(SP) 

DE MOV #6,~(SP) 

108 oad dedi 
108 000200 156210 8178 oe ; 5610 
108 TRAP : 5613 
108 -WORD 17 . 
108 .WORD  ASYNC 





ene ee ee” iemedind 
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SEQ 0245 
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000001 
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139384 155570 
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155516 
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TEST CODE SECTION 
#FNC.4,-(SP) 
#WRD 





#800, am. .REG50 
15$ 


“" @AML .REG 










SBzowusenuwes 
s382834 9 


SPY nd PY) ond SS od 





Som 
$ 


AWARE 
ie 
“ 


. SP,* 


; *,SSTMP2 
; *,SSTMP1 


; SSTMP 
; SSTMP1 


; SSTMP2 


; SPs 





59-mar=1 


SEQ 0246 


TOPS | 


16:91:03 


PA:< 


56a8 


5654 


5657 


i 


s 
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C2 
$T135 TEST CODE SECTION SEQ 0247 | 

















1 sMLGAD r-1 16:23:04 TOPS 
: TEST CODE SECTION a a 16:57:93 PA:< 
1 MOV #WRD.19,-(SP) : 5662 
1 MOV #FNC.4.-(SP) 
1 MOV #WRD.11.-(SP) 
1 MOV #PHR.1,-(SP) 
1 MOV #WRD.2,-(SP) 
1 MOV #FIV.FAT,-(SP) 
1 MOV #6,~-(SP) 
1 MOV SP.RO : SP,* 
105 TRAP = ‘14 | 
1 14$: MOV #1,R2 3 *,DODU.FLG 5665 
1 ADD #16,SP ; 5647 
15$: B1T8 Ht @ML .REG ; 5668 
1 Y BISB #40,@ML.REG+40 ; 5670 
1 vt MOV ML.DUT.R1 
1 140 BIC #177770,R1 
140062 7 BICB = #7, AML .REG+40 
: 040¢ 7 BISB R1, QML .REG+40 
; 2074 1 B1TB #1,aML.REG : 5673 
$9 040104 1 TRAP 
0401 . WORD 
’ ‘ 04011 ’ - WORD 
94011 ' 7 e WORD 
24011 ' ER 
40116 1 16$: TRAP 
40120 00 . WORD 
0401 D1¢ . WORD 
: 0401 2¢ ' 17$: MOV : 5676 
9 040152 01 MOV 
40136 01 MOV 
, 401 2 01 MOV 
9401 , QT MOV 
a 7 
24016. 1 MOV : SP,* 
94016 nov : *,DODU.FLG 2677 
D4 18$: TRAP : 56 
y4C 4 ROR a6 
/ 2¢ BHIS 1 
0402( JmPtié*dASS : 
140. 19$: DEC Re : DODU.FLG 5682 
2402 MOV at - LUN. RO ; 5685 
0406 TRAP = § 
6022, TRAP = & 
140¢ 20$: TST (SP)+ ; 5571 
1402 RTS C 


adi ; 















CZ ML 

$T15 TEST CODE SECTION SEQ 0248 
11 r=1 16:23: TOPS | 
i. ; TEST CODE SECTION a lat bs 10:57 .08 PA:< | 
11 z Routine Size: words | 
i ; Maximum stack depth per invocation: 18 words | 
188 | 
Hi r3 -SBTTL 113 TEST CODE SECTION 
11 767 176646 1$: JSR PC,$T13 ; 5687 
11 1 TRAP 66 
11¢ ROR 
11 BLO 1$ 
i : 4 20 RTS PC 
11 : Routine Size: 6 words 
i : Maximum stack depth per invocation: 0 words 
11¢ 
110356 ; 5690 '!<BLF/PAGE> 
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r-1 16:23: TOPS-20 Bliss-16 V2(212) 
TEST CODE SECTION soma 1985 16: 108 PA:<NEALE>ML4AD.BL1.4 (66) 
' 
BGNTST: 
los 
! TEST NUMBER: TST 14 


i 
TEST NAME: WRITE FUNCTION TEST 


TEST DESCRIPTION: 
TEST IF THE DRIVE CAN PERFORM A WRITE FUNCTION WITHOUT 
HANGING THE DRIVE. 


A WRITE FUNCTION IS WRITTEN INTO MLCS1. THEN GO AND ERROR BITS ARE 
CHECKED FOR CORRECT STATUS. THIS UNIT IS DROPPED ON DETECTED ERRORS. 











local 
DODU_FLG: !DROP UNIT FLAG 
PIRST BLK XFER i): 'SET UP A FIRST BLOCK XFERR 
MLCS1"= write: 1DO A WRITE FUNCTION 
if .GO IS_NOT_SET 'SEE IF THE GO IS SET 
then 0 


ie: sient re 'ERROR IF NOT SET 
PRINTS (Fiv-FMT. WRD 1 HR_1, WRD_12, FNC_5, WRD_19); 
if DRY 1S_NOT_SET 'SEE IF DRY SET WITH GO CLEAR 





ERRDF 





n 
(25, ASYNC, DUMPER): 
PRINTB (FiV_FMT, WRD_2, PHR_1, WRD_43, WRD_1, PHR_6): 





DODU_FLG = ONE; !SET DODU_FLG 
else !60 IS SET DURING FUNCTION 
if DRY IS_SET ‘SEE IF DRY CLEAR WITH GO SET 
in 'ERROP IF SET 
PRADF (26, ASYNC, DUMPER); 
PRINTS (FIV FMT, WRD_2, PHR_2, WRD_43, WRD_1, PHR_5); 
DODU_FLG = ONE; 
if .ILF IS_SET !DID FUNCTION CAUSE ILF 
then 


SEQ 0249 


~—- 
nN 
3 
~ 
rn 
~ 
~ 


EC Att 
F 4 
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‘TST GO TO DETERMINE FAILING MOD 
—- (FIVLFAT, WRD_1, PHR_2, WRD_11, FNC_5, WRD_19); 


‘DRY NOT SET AND GO CLEARED 
RROR 






: begin 'ERROR IF YES 
; 764 E (27, ASYNC, DUMPER); 
; 745 PRINTS (FIV_FMT, WRD_3. PHR_S, WRD_12. FNC_S, WRD_19); 
; ng end; 
: 748 if .OPI IS_SET !DID FUNCTION CAUSE OPI 
: 749 then 
: n 'ERROR IF YES 
3 (28, ASYNC, DUMPER): 
; ¢ PRINTS (FIV_FAT, WRD_4, PHR_S. WRD_12, FNC_S, WRD_19):; 
44 : fee DELAY (FRTY_US): 'WAIT FOR XFERR TO COMPLETE 
i se if -DRY 1S_NOT_SET 'SEE IF DRY CLEARED AFTER XFERR 
1§ 4 begin 
13 7 if .GO IS_SET !TST GO CLR IF DRY NOT SET 
16 7 then 
: ch !CLEAR GO IF STILL SET 
7 
7 
7 
77 
77 








EE ae 


‘ r-1 16:23: TOPS-20 Bliss-16 V2(212) 
; TEST CODE SECTION ai la Fs 18:57:08 PA:<NEALE>ML4AD.BLI.4 (66) 


if .GO IS_SET then ERRDF (29, ASYNC, DUMPER) else ERRDF (30, SYNC. DUMPER) ; 


begin IREPORT E 
. (31, ASYNC, DUMPER): 
PRINTB (FIV_FAT, WRD_2, PHR_1, WRD_11, FNC_5, WRD_19); 

DODU_FLG = ONE; !SET DODU_FLG 

end; 

if 60 1S_SET ‘SEE IF GO CLEARED AFTER XFERR. 

11 begin 
" CLR_MBUS; ‘CLEAR GO IF STILL SET 
Wt if .GO IS_SET then ERRDF (32, ASYNC, DUMPER) else ERRDF (33, SYNC, DUMPER): 
1114 !TST GO TO DETERMINE FAILING MOD 
11 PRINTB (FIV FMT, WRD_1, PHR_2, WRD_11, FNC_5, WRD_19); 
1114 DODU_FLG = ONE: 
114 , 
11146 ENDSUB; 
11148 794 if .TRE IS_SET 'SEE IF XFERR CAUSED A TRANSFER ERROR 


SEQ 0250 


—— = 


SEQ 0251 


& 
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Bliss-16 V2(212) 


<NEALE>MLSAD.BLI.4 (66) 


os TOPS-20 
3 PAS 
‘REPORT ERROR IF SET AND CONTINUE TESTING 


iE 


39-Mar-1982 16 


TEST CODE SECTION 





WRD_20, PHR_S. WRD_12, FNC_S, WRD_19); 


R); 


(115, INTER, 
- WRD_61, 


(SIX_FMT 





FLG IS_SET 


— ee eee _— for eee 


‘DROP THIS UNIT IF DODU_FLG SET 


if -DODU 
hen 


t 
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SEQ 0252 


$-mar=1969 16:91:08 


ML~11 Losie TEST 
EST CODE SECTION 


C 


$T14 T 


TOPS 
PA:< 


TEST CODE SECTION 


sMLGAD 


- ae ee ee 

















2) ~~ am A ~ Me = wn me - 
Poi ~ wT wT w FF uw 
~ Re LA Bm ~ 
| 
9 
ad 
“ 
a 
= 
ra *«* & we 
. a a 
& w « aw” 
*e *e @®*e*%e © & ee ee %e ee © ee @%e > 
_s “ os 
(a) 
saben? a 
$3238 4 h4 33255, 5 3 Mitr bar ty § 
eer § ae 8 wer § wee «6 us G =e F wre «© 
ve 26 8 ~ o *,. Me = oe" =e 
eorseNee 4 en-us 3 pee Ly gen 
— ® e6@e8eées a} ® s 
> 












yh 
oS 


2 a ; im S. ase 
=> => 1 = 

sbeseese sg Z2t,. fbeeeeg= so. 32, f 
SEbSREREsEsceSescesesassetenss ees 





s 
annie 


3 geez o 

-— ss © 
geeeseseearen 
38 $3.003895 
AERSRSESEe sa%Rs 22> 





154702 4§: 
154616 5$: 


Ne eS es 
ee a 
> + 


pt Nh te ay : + CO A tA 
INI BF AS SELENA 





SP F= GOS FO C= F GC C= 


SEQ 0253 


So-mara19Rs 16:53:08 


| P 
MACRO M1113 30-MAR-82 11:18 PAGE 370 





TOPS 
PA:< 


TEST CODE SECTION 


sMLGAD 
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CZ ML-11 LOGIC 

$T14 TEST CODE SECTION SEQ 0255 
11374 sML4AD 1 16:23: TOPS © 
i 75 3 TEST CODE SECTION Somer 1986 18; 1 os te 
11 a8 1376 0127 1 216 MOV #FNC.5.-(SP) | 
11 : 1 127 1965 MOV #WRD.12,=(SP) 
11 1 127: 11716 MOV #PHR.5,-(SP) 
11 14 12746 910756 MOV #URD.20,-(SP 
11 141 12746 01141 MOV #URD.61,-(SP) 
11 14 12746 91052 MOV #SIX.FMT,-(SP) | 
11 14 127 MOV #7 ,-(SP) 
11 14 1 MOV SP,RO 3; SP,* 
11 14 104416 TRAP 14 
11 14 000020 ADD #20,SP : 5796 
i. \ ; 20S: pee ae ; DODU.FLG 5801 
11 1 1 154356 MOV ML.LUN.RO j 
11 1452 1 1 TRAP 51 oom 
1 2 ; $736 21$ er (SP) + 5689 
i 1420 56 "Fs P ° 
11395 ; Routine Size: 327 words 
it ape : Maximum stack depth per invocation: 18 words 
Hs 
1208 -SBTTL 114 TEST CODE SECTION 
11411 041 T14:: 
1141 1 767 176556 1$: JSR PC,$T14 3 5806 
11418 0414 ROR 
11415 06147 BLO 1$ 
11218 147 20 RTS PC 
1218 3; Routine Size: 6 words 
Hyd 44 : Maximum stack depth per invocation: 0 words 
11425 
11485 : 5809 '!<BLF/PAGE> 


= ce tte: 


SC 


le) 
5 
“~ 
m 
w” 
—_ 





ed ed eed 

oP ed eed eed 

a PP 
—> od 


NOUEWN =O 


eer scenester 


ce ced ee eed ed ceed eed eed eed ceed eed 
ee ed ed ed eed eed eed ceed eed 
BELLO LS 
SSVSERERANS SY 
a >. >. > . . * . — . 
ed ed ed eed eed coed ond ed 
ooo 


SSSEPEREE 


NOUS UIN = 


& 
oO 


ed ed ed ceed eed eld ceed ee end ened 
Sane 


VIA 


ce ed ee ed ee ed eed eed eed ceed weed ceed 
MEU 


ond ed aed ond aon 
PRALRL 


1 
: 
5 
7 


cree mack, oe ek ed eed 
E> 5 5 
SSE 


ed ed eed ed eed eed ed ed eed eed 


—~ 
a 
Ww 


co ee ek eed eh ce eed eed ee oe eee ood 


PPP LLRDE 


— 


BSSBVOARGN 


ae 





Od ed ed ed eed ed ed ed eed ee ed ee ed ee eed 
a ee ee eee ee Y 





& 
EST MACRO M1113 30-MAR-82 11:18 PAGE 573 


$p-fer=1 16:23: TOPS-20 Bliss-16 V2(212) 
TEST CODE SECTION a 18:57:03 PA: <NEALE>ML4AD.BLI.4 (67) 


i 
BGNTST: 
| 


e+ 
! TEST NUMBER: TST 15 

i TEST NAME: § READ FUNCTION TEST 

i TEST DESCRIPTION: 

i TEST IF THE DRIVE CAN PERFORM 
A READ FUNCTION WITHOUT 
HANGING THE DRIVE. 


i 

' 

i 

i 

' 

q 

‘ 

i A READ FUNCTION IS WRITTEN 
. INTO MLCS1 
' 

' 

4 

' 


THEN GO AND ERROR BITS ARE 
CHECKED FOR CORRECT STATES. 


‘DROP UNIT FLAG 


:SET UP_A FIRST BLK XFERR 





1 1DO A READ FUNCTION 
if 60 IS_NOT_SET 'SEE IF GO GOT SET 
in ‘ERROR IF CLEAR 
PRADF (34, ASYNC, DUMPER); 
PRINT (FIV_FMT, WRD_1, PHR_1, WRD_12, FNC_6, WRD_19); 
if DRY 1S_NOT_SET !TST DRY SET WITH GO CLEAR 
in ‘ERROR IF NOT SET 
PRADE (35, ASYNC, DUMPER): : 
PRINTB (FIV_FMT, WRD_2, PHR_1, WRD_43, WRD_1, PHR_6); 
DODU_FLG = Ohe: 'SET DODU_FLG 
else 'GO BIT GOT SET 
if .DRY IS_SET ‘SEE IF DRY IS CLEAR 
then 


begin ‘ERROR IF SET 


re rms eee ee 


CELADO ML-11 L 
T14 TEST CODE $ 
;ML4AD 


ed ed 
ee ed end nk 
Ww 
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SEQ 0257 
so ner-12 16:23: TOPS-20 BSiiss-16 V2(212) 
TEST CODE SECTION Somer -1985 18:37:03 PA: <NEALE>ML4AD.BLI.4 (67) 
ASYNC, DUMPER 


ERRDF (36 ); 
PRINTS (FIV FMT, WRD_2, PHR_2, WRD_43, WRD_1, PHR_6); 
DODU_FLG = ONE; 





oe ee eee ——— = = 


if -ILF 1S_SET !DID FUNCTION CAUSE ILF 
in ‘ERROR IF YES 
PRADE (37, ASYNC, DUMPER); 
PRINTB (FIV_FMT, WRD_3, PHR_S, WRD_12, FNC_6, WRD_19); 
if OPI IS_SET 'DID FUNCTION CAUSE OPI 
‘ERROR IF YES 


in 
PRADF (38, ASYNC, DUMPER); 
PRINTB (FIV_FMT, WRD_4, PHR_S, WRD_12, FNC_6, WRD_19); 


‘WAIT FOR XFERR TO COMPLETE 
‘IS DRY SET AFTER XFERR 


DELAY (FRTY_US); 
if .DRY IS_NOT_SET 
then 


begin 
Lb Ia IS_SET ‘TEST GO CLEAR WITH DRY NOT SET 
in 
ech Reus: 'CLEAR GO 


if .GO IS_SET then ERRDF (39, ASYNC, DUMPER) else ERRDF (40, SYNC. DUMPER) ; 


'TST GO TO DETERMINE FAILING MOD 
PRINT (FIV_FMT, WRD_1, PHR_2, WRD_11. FNC_6, WRD_19); 


else ‘GO BIT CLEAR WITH DRY NOT SET 
ERROR 


begin IREPORT 
ERRDF (41, ASYNC, DUMPER); 
PRINTS (FIV_FMT, WRD_2, PHR_1, WRD_11, FNC_6, WRD_19); 






end; 
DODU_FLG = ONE; 'SET DODU_FLG 
end; 
if .GO IS_SET ‘SEE IF GO CLEAR AFTER XFERR 
then : | 
n 
cr BUS: 'CLEAR GO IF STILL SET 


if .GO IS_SET then ERRDF (42, ASYNC, DUMPER) else ERRDF (43, SYNC, DUMPER); 
‘TST GO TO DETERMINE FAILING MOD 


' a 





N_ 4 
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CZMLADO ML-11 LOGIC T 
114 TEST CODE SECTION SEQ 0258 
11540 ; r=-1982 16:23: TOPS-20 Bliss-16 v2(212) 
i _— TEST CODE SECTION 3 a a 18:57:08 PA:<NEALE>ML4AD.BL1.4 (67) 
11543 ; 914 PRINTS (FIV FMT, WRD_1, PHR_2, WRD_11, FNC_6, WRD_19); 
11544 : 915 DODU_FLG = ONE; 
11 s aS end; 
11 s 91 
Yi ; aa18 ENDSUB; 
i : if -TRE 1S_SET ‘SEE IF XFERR CAUSED A TRANSFER ERROR 
: j ‘REPORT ERROR IF SET CONTINUE TESTI 

We ; Ha Me (116, INTER, DUMPER): ” _ ” 
11385 ; 4 PRINTS (SIX_FAT, URD_61, WRD_20, PHR_S, WRD_12, FNC_6, WRD_19); 
11555 : ‘ 
11556 : 9 6 if .DODU_FLG IS_SET !DROP THIS UNIT IF DODU_FLG SET 
11 5 9 then 
11 $ 9 in 
11 s (.ML_LUN); 
11560 ; 9 DOCLN;: 
Vi : 3 end; | 
i 53: 5934 ENDTST: 
156 .SBTTL $115 TEST CODE SECTION 
11 7 167 143036 $715: JSR R1,$SAVE2 | ; 
i 5 ST -(§P) 

4 1$: TRAP 3s 2 ; 
H i 153730 : BISB #40,@ML.REG+40 ; 

16701 1 TRI 

; 153712 * an Reoes 

77 sai RI amt REGsO 

156516 PC FIRST BLK.XFER : ere 
71 15 #71, aML.REG : 

) a09671 133034 #1, aML REG ; 


a5 


wa 
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sMLSAD 


153364 5$: 


153242 108: 
153162 
153212 


153174 
153122 


11$: 


12$: 





SeSSSSE SEE S5EE 


TEST CODE SECTION 


#16,SP 
#20600 o@ML .REG+60 
55 


7$ 

#200.,aML .REG+50 
158 

f @ML .REG 

#40 ,,aML .REG+40 
ML R1 





° SP,* 


; #,SSTMP2 
; * -SSTMP1 
: Step 
: $STMP2 


9-mar-1980 | 


SEQ 0260 


6:23:04 
6:21:03 


| 


TOPS | 


PA:< 


5869 
5874 
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5889 
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ed nd ed 
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SEQ 0261 


me 16:23:04 TOPS | 
r-1 16:21:03 PA:< | 


5903 
5885 
5906 


5908 


5911 


5914 


ELE Ee —_——--— - — 
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ODE SECTION SEQ 0262 
1 :ML4AD -1982 16:23:06 TOPs | 
1 : TEST CODE SECTION tae at 16:57:08 PA:< 
1 040000 152572 19S: #40000, aL .REG : 5920 | 
11 : $923 | 
1 WORD 
" WORD 
11 1 MOV ; 5924 
11 1 MOV 
11 1 MOV 
11776 11714 MOV 
11 0 MOV 
11 114 : MOV 
11 1 MOV 
11 MOV 
" TRAP sit 
11 000020 ADD : 59 
4. 20S: pee : DODU.FLG 3955 
113 153124 MOV : 5930 
11 TRAP 
" TRAP 44 
1785 21$: TST (SP)+ : 5808 
i 3 RTS PC 
11 3; Routine Size: 327 words 
1 > Maximum stack depth per invocation: 18 words 
! 
i sei 715 TEST CODE SECTION 
f 767 176556 1$:_ PC.$T15 : 5932 
118 
11 i 
t RTS PC 


; Routine Size: 6 words 
>; Maximum stack depth per invocation: 0 words 


ei = 


5 


:18 PAGE 280 
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SEQ 0263 


! <BLF /PAGE> 
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ON SEQ 0264 


rm 1385 16:63:08 TOPS-20 Bliss-16 V2(212) 
TEST CODE SECTION r-1 16:21:03 PA:<NEALE>ML4AD.BLI.4 (68) 
t 
BGNTS :; 
+6 
} TEST NUMBER: TST 16 

TEST NAME: CLEAR FUNCTION TEST 


TEST DESCRIPTION: 
TEST IF THE DRIVE CAN PERFORM A CLEAR FUNCTION WITHOUT HANGING THE DRIVE. 


s 
‘ 
' 
; A CLEAR FUNCTION IS WRITTEN INTO MLCS1. 
i 
i 
i 


THEN GO AND ERROR BITS ARE CHECKED FOR CORRECT STATUS. 
THIS DRIVE IS DROPPED ON DETECTED ERRORS. 





CLR 2 

MLER = ONES; | ‘SET BITS IN ERROR REGISTER 

MLCS1 = DRV_CLR; 'DO A CLEAR FUNCTION 

DELAY (ONE_OS); :DELAY 

a IS_SET *SEE IF GO CLEARED AFTER FUNCTION 





n 'ERROR IF SET 
ERRDF (44, ASYNC, DUMPER): 
PRINTS (FIV_FMT, WRD_1, PHR_S, WRD_11, FNC_3. FNC_7, WRD_19); 


+ I id IS_SET ‘TST DRY CLEAR WITH GO SET 


begin | ‘ERROR IF SET 
ERRDF (45, ASYNC, DUMPER): 
PRINTS (FIV_FMT, WRD_2. PHR_S, WRD_43, WRD_1, PHR_5); 


end; 
end 
else 'GO CLEARED AFTER FUNCTION 
if DRY 1S_NOT_SET 'TST DRY SET WITH GO CLEAR 
n ‘ERROR IF NOT SET 
ERRDF (46, ASYNC, DUMPER): 
PRINTE (FIV_FMT, WRD_2, PHR_1, WRD_43, WRD_1, PHR_6); 


if .ILF IS_SET 'DID FUNCTION CAUSE ILF 
then 


begin ‘ERROR IF YES 
ERRDF (47, ASYNC, DUMPER): 
PRINTS (FIV_FMT, WRD_3, PHR_S, WRD_12, FNC_3, FNC_7, WRD_19); 


re ee ee 


thei 


ML-11 


CERLADO 
TIS TEST CODE 


eed eed ed ed eed eed eed 2 ceed ed ge ceed ed ceed eet eed eed 


ed 8 nd ed nd ed eed ed eed eed ae ed od 
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TEST CODE SECTION 


end; 


if .OPI IS_SET 
then 


PRADE (48 


PRINTB (Fi 
end; 


ASYNC, DUMPER); 
V_FMT, WRD_4, PHR_5, WRD_12, FNC_3, FNC_7, WRD_19); 


if .MLER ZERO 
then an 


ENDSUB; 
ENDTST; 


0 


1524 
st 


137102 


000001 


010730 


152500 
152462 


152470 
152402 


152346 


$T16: 


TsT | 
1$: TRAP 


4$: 
5$: 








ML 








r4 
mburat 
7 





6 





7,@ML 
be ae 








2s 
a 
54 
ASYNC 
DUMPER 
#URD.19,-(SP) 





RR 
REG+40 


5 


-SBTTL $116 TEST CODE SECTION 
MOV -(SP) 





9-mar=1969 16:91:08 


‘DID FUNCTION CAUSE OP! 


‘ERROR IF YES 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>ML4AD.BLI.4 (68) 


‘TEST ERROR REGISTER FOR CLEAR 
‘ERROR IF NOT CLEAR 


n 
ERRDF (49, ASYNC, DUMPER): 
PRINTB (SIX_FAT. FNC_3, FNC_7, WRD_19, WRD_14, WRD_13, REG_3); 


* oSSTMP2 
* ,SSTMP1 


SSTMP 


; SSTMP1 


SSTMP2 


SEQ 0265 


5960 
5965 


5964 
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SEQ 0267 


S3nar 1888 16:54:98 


TOPS 
PA:< 
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5990 
5993 
5994 
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3 SP,* 
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SEQ 0268 

ZML4AD 1982 16 TOPS | 
: TEST CODE SECTION r-1 16: 3 03 PA:< | 
we -SBTTL 116 TEST CODE SECTION 
1$: JSR PC,$T16 : 

TRAP 66 | _ 

ROR RO 

BLO 1$ 

RTS PC 


: : 767 177146 
20 


! <BLF /PAGE> 


; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 


eS esses ss teseeeeeseeneeneeeeeetemnmeeney 


--—— = EL Et ere reat, 


ee 
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C ML-11 LOGIC T 
T16 TEST CODE SECTION SEQ 0269 
12087 :ML4AD 1 16:23: TOPS-20 Bliss-16 V2(212) 
12088 : TEST CODE SECTION $9-Mare] 16: 103 PA:<NEALE>ML4AD.BLI.4 (69) 
+44. 
19 ae 
3091 BGNTST; 


See 


Se 

TEST NUMBER: TST 17 
TEST NAME: DIAGNOSTIC REGISTER TESTS 
TEST DESCRIPTION: 


SO0O00C 
22 
SUN =O 








i 
i 
4! 15 | 
' 16 ’ TEST THE DATA DIAG REGISTERS MLD1, MLD2, MLE2 
; reid } FOR 1°S/0°S, SHIFTING 1°S/O'S AND INITIALIZATION 
1 ; fea 
1 
1 cal 
1 CLR_DATA, ‘CLEAR DATA FOR INIT TEST 
1 P !TEMPORARY SAVE LOCATION 
ERR_FLG, ‘ERROR FLA 
TST PAT, ‘TEST 


PATTERN 
‘POINTS TO REGISTER PRESENTLY BEING TESTED 
DODU_FLG: 'DROP UNIT FLAG 


DODU_FLG = ZERO; 


So 
SVSLRERONTS 


i 
i 
FIRST TEST THE REGISTERS FOR ONES AND ZEROES 


TST_PAT = ONES: ‘LOAD TEST PAT WITH ONES 
CLR-THRESHOLD; 'CLEAR ERROR PRINT THRESHOLD 
incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
begin 
iner REG_SEL from 11 to 13 do 'TEST ELEVEN WRITE/READ REGISTERS 
n 


NOUFWN—SOONAUP WU OSR UR AR OOS eS 





CLR MBUS: 
WRTREG (.TST_PAT, .REG_SEL, index): | !WRITE TO THE REGISTER 
RD_REG (.TST_PAT, .REG_SEL. ERR_FLG): ‘READ THE REGISTER 


Fc EAR_FLE IS_SET ‘SEE IF READ FOUND AN ERROR 


11F ERROR FLAG IS SET THEN ERROR AND SET DODU_FLG 
HR COMPARE ERROR PRINT THRESHOLD 

RRDF _DAT, DUMPER); iARRAY DATA E FAILURE 

PRINTB (SIX_FMT, PHR_4, WRD_12, FNC_5, FNC_6, WRD 52, WRD_56); 

PRINTB (FAT 16. oML_REG C.ifidex, REGISTER_ADDJ, .QT_DATA,~-RD DATA); 


ENDSUB; 











ok tl al lt lt lh lls ll lh ll lh lt lh a dh ch a dh a ee a ed ed ed eed en enc ed ed ce ee ed ed ed ed ed eed eed 


~~ e 
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aS 
TEST MACRO M1113 30-MAR-82 11:18 PAGE 287 
ON SEQ 0270 


3 at 16:45:06 TOPS-20 Biiss-16 V2(212) 
r=1 16:21:03 


C ML-11 LOGI 
T16 TEST CODE SECT 


12143 ;ML4AD 
144 ; 


C 
I 


CLR_MBUS: 
WRT-REG (.TST_PAT, .REG_SEL, index): ‘WRITE TO THE REGISTER 
RD_REG (.TST_PAT, .REG_SEL, ERR_FLG);: ‘READ THE REGISTER 


te IS_SET ‘SEE IF THE READ FOUND AN ERROR 


‘IF THE ERROR FLAG IS SET THEN ERROR 
‘COMPARE ERROR PRINT THRESHOLD 
IARRAY DATA MODULE FAILURE 

FNC_6, WRD 52, WRD_56): 
STER_ADDJ, .OT_DATA,~.RD. DATA); 


—_ 





144 TEST CODE SECTION PA:<NEALE>ML4AD.BLI.4 (69) 

166 : 9 end; 
148 : TST_PAT = not .TST_PAT: 'REPEAT AGAIN WITH COMPLIMENT DATA 
149 : end; 
129 
132 : 5 i 
! : : TEST THE REGISTERS FOR SHIFTING ONES AND ZEROES 
155 : i 
ig : TST_PAT = ONE: 'LOAD TST_PAT WITH A 1 IN A FILED OF O'S 
138 ; 6071 incr SHIFT from 0 to 15 do ‘DO SHIFT 16 TIMES 
; s ae begin 
161 : 7% incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
1 p begin 

5S incr REG_SEL from 11 to 13 do ‘TEST ELEVEN READ/WRITE REGISTERS 

A. begin 

60 : 


ASSSIETFATIS 


Bete Se Ge Ge Ge Fe Ge Ge Ge Ge Be Ge Be Ge Se Bs Be Ss Be Ge Se Ge Ge Fe Ge Se Ge Ge Se Ge Ge Ge Be Se “ee 


in 

T, . 
ERRDE C1 2, ARR_DAT, DUMPER); | 
PRINTB (SIX_FMT; PHR_4, WRD_12, FNC 5 
PRINTB (FMT-16, .ML_REG C.index, REGI 
DODU_FLG = ONE; 






SANTOR 


Be 


a ek ed ed ed ed ee ee ed ee ed et ed ced ee ed ee eed ee ed ee 





POPPI POP OPP rr rrr ae a mk ma me lh lh lh th lh hh ed ad ed dd od gd dn 


ENDSUB; 
end; | 
b TST_PAT = not .TST_PAT: 'REPEAT WITH A 0 IN A FIELD OF 1°S 
1 ? 
1 1 TST_PAT = .TST_PAT“ONE: ‘SHIFT THE 1 IN THE FIELD OF O'S 
1 61 1 end; 
1 1 
} S18 
1 1 5 i NOW TEST THE REGISTERS FOR INITIALIZATION 
ei SI 
195 61 REG_INIT_FLG = ONE; 
196 610 TST~PAT = ONES: ‘BACKGROUND PATTERN 

















Nn 5 | 
CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 288 | 
T16 TEST CODE SEC ION SEQ 0271 
12199 ;ML4GAD 1 16:23: TOPS-20 Bliss-16 V2(212) 
} 0 ; TEST CODE SECTION 3 a a Fs 18:57 .98 PA:<NEALE>ML4AD.BL1.4 (69) | 
1 ii ; 6111 incr TWICE from 0 to 1 do ‘REPEAT LOOP TWICE 
ge: | ig este 
505 ; 6114 incr REG_SEL from 11 to 13 do 'TEST THIRTEEN REGISTERS 
JO ; n 
( 
12209 : 6118 URT-RES °é IST PAT, .REG_SEL, index); | !WRITE REGISTER WITH BACKGROUND 
12210 : 611 LR-DATA = (.AI) or (. IGNORE): 'CALCULATE THE CLEARED DATA PATTERN 
12011 : 61 p REG INIT_FLG = ONE; 
t ; $ 1 RD_REG ({CLR_DATA, .REG_SEL. ERR_FLG); !READ THE REGISTER FOR THE CLEARED DATA PAT 
i 14 : 61 $ if -ERR_FLG 1S_SET 'SEE IF READ FOUND AN ERROR 
1 16 ; 6125 in ‘IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG 
12217 = 61 : THRESHOLD: | 'COMPARE ERROR PRINT THRESHOLD 
1 18 ; 61 E (118, ARR_DAT, DUMPER): — ‘ARRAY DATA E 
1 ; 61 PRINTB (FIV_FMT, PHR_4, WRD_12, WRD_52, FNC 23. WRD 56): 
12220 : 61 PRINTS (FMT=16, .ML_REG C.ifdex, REGISTER_ADD]. .CLR_DATA, .RD_DATA); 
1 ; 61 DODU_FLG = ONE; 
15558 : e132 , 
1 4 : 61 ¢ ENDSUB; 
: ; o] : end; . a . 
1 $ ; I - TST_PAT = not .TST_PAT: ) 'REPEAT WITH COMPLIMENT BACKGROUND PAT 
12229 ; 1 _— 
i 0 : $139 REG_INIT_FLG = ZERO; | 'CLEAR THE FLAG 
t : 6141 if -DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG SET 
4; 128 begin 
: 144 (.ML_LUN) 
1 ¥ 145 DOCLN; 
t : 146 end: 
9: o148 ENDTST; 
$117 TEST CODE SECTION 
r. 167 141014 $717: R1 5 5 : 6005 
Hi = (3?) eats : DODU.FLG | 6029 
177777 #~1,R2 : , TST.PAT | 
} i 151564 P.CNT 





R4 : : TWICE 6038 


| 
| 
| 


SEQ 0272 


3$-mar=1963 16:91:08 
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PA:< 
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C2 ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE S90 
$117 TEST CODE SECTION SEQ 0273 — 
12311 ZMLSAD 29-Ma 1982 16:23:04 TOPS | 
} iF : TEST CODE SECTION rw1985 16:21:03 PA:< 
12314 044074 67 : 6056 
138 Siets 
1 13 ¢ 1 S$: R1 : REG.SEL 6041 
} 18 ( x 000015 RI #15 : REG.SEL,* 
12320 06411 R2 : TST.PAT 6061 
12321 044611 R4 : TWICE 60 
1 ¢ ; 1 000001 CMP R441 : TWICE,* 
1 5441 1$ 
12326 0441 000001 MOV #1,R2 z *, TST.PAT 6069 
12325 0441 : SHIFT 6071 
1 $ 0441 6$: CLR R4 : TWICE 6074 
1 1441 000013 7$: MOV #13.R1 3 *,REG.SEL 6077 
12328 04461 8$: TRAP 3 6078 
1 144146 090040 151274 BISB ; 6079 
1 130 151656 MOV 
1 1441 137990 BIC 
1 144160 7 151256 BICB 
} 166 151252 BISB 
13a tif by tees: - 
' 144176 000012 MOV a 
1 044202 06C $16 ADD : INDEX,* 
1 044204 004767 161114 JSR 
] 7 110216 MOV : TST.PAT,* 6082 
1 044212 010146 MOV : REG.SEL,* 
1 044214 012746 000014 MOV 
1 960616 ADD : ERR.FLG,* 
1 104767 161464 JSR PC.RD.REG 
1 144206 0266 f 14 000001 cmp 1G{SP) a1 : ERR.FLG,* 6084 
1 ; 105267 1511 INC P.CNT : 6086 
} 1442 i 7 131136 151130 cHp P.CNT.LIMIT 
1 ree 104455 9$: TRAP ; 6088 
1 044.26; ee - WORD 
1 ’ Lt 01301 eWORD 
i meee 112746 hove : 6089 
1 1442 112746 MOV 
: mers 1 : MOV 
44304 012766 MOV 
12746 MOV 
4 , eC 1 : MOV 
19388 946330 91060 ROY | ; SP, 
1 44332 414 TRAP f _—* 
1 144 33. erie 151012 MOV RD.DATA, (SP) : 6090 





6 
CEM ADO ML~11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 291 
ST17 TEST CODE SECTION SEQ 0274 


sMLGAD er! 19:45:08 TOPS | 








1 
: TEST CODE SECTION r-1982 16:21:03 PA:< 
1 WT .DATA,-(SP) 
40(SP) .RO : INDEX,* 
1 RO 
1 RO 
1 ML.REG(RO) .-(SP) 
1 #FMT.16,-(SP) 
1 4,-(SP) 
| SP.RO : SP, 
1238( 000042 #1.42(SP) : *,DODU.FLG 1 
13381 #30,SP Py $086 
1 38 10S: #12.SP : 6078 
} 53 of $ 6092 
1638 11$ HF REG. SE 

2 f : : G.SEL 77 
1938 Ri #15 : REG.SEL,* - 
12385 BO s TST.PAT 6097 
1235 R4 : TWICE 6074 
; s Real s TWICE,* 
1938 R : ole $071 
1235 R3.417 ; SHIFT,* 
12397 150674 #1,REG.INIT.FLG : 1 
| os ae Hi 
1 12s: #13,R3 : *,REG. SEL 6114 
1 13$: 2 : 6115 
150736 #40 aM -REG+40 ; 6116 
i 
150720 
1 : TST.PAT,* 6118 
! 3; REG.SEL,* 
: : INDEX,* 
! i : INDEX,* 6119 
1241 
15448 
1 16 RO.R1 
1261 MOV ML .REG+2(R1) RS : *,CLR.DATA 
1 418 BIS ML.REG*6(R1).R5 : *,CLR.DATA 
1241 150560 MOV #1,REG.INIT.FLG : 6120 
1 430 «MOV : CLR.DATA,* 6121 
1 MOV R3,-(SP) : REG.SEL,* 


-_—_—— 
re 
ee ee 

eae oe 








2 . 
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ODE SECTION 
i :ML4AD SEQ 0275 
, ; TEST CODE SECTION r=1982 16:23:06 TOPS - 
L “ >} OPS 
nov #16,-($P) ae at 16:21:03 PA:< | 
: 000001 - “RD. ; ERR.FLG,* | 
: ONE aceeatieadl 6123 
1 150540 CMP , 
1 BLE 6125 
: aR. 
1 14$: TRAP 
i _ : 6127 
! a 
: MOV ° 6128 
1 MOV 
1 MOV 
1 MOV 
i PY 
| ie ‘es 
MOV ; 
i MOV ; CLR.DATA,* 6129 
1 MOV 
1 MOV 
1 MOY 
1 000040 Lng : SP,* 
5 Ss 3 

; 158: ADD tia caai 6130 
124660 TRAP : 6125 
i “e : a 
1368 168: INC ’ 
124¢ : 

46 | 3 REG.SEL 
1346: Bc > REG.SEL,* 6114 

why : TST.P 
fry imp : Twice 6136 
12465 BLE > TWICE,* 6111 
He : 
it 46 BNE ; DODU.FLG,* 6139 
: f TRap ° 6144 
1 a6 17$: ADD 
124 RTS : _— 





F 6 so ti 
ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 293 
ST CODE SECTION SEQ 0276 
sMLSAD 16:23:04 TOPS 
: TEST CODE SECTION 5? a na 16:21:03 PA:< 
: Routine Size: 341 words 
; Maximum stack depth per invocation: 26 words 
_ -SBTTL T17 TEST CODE SECTION 
767 176522 1$: JSR PC,$T17 : 6146 
TRAP 
ROR 
1 BLO 1 
20 RTS PC 


; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 
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C TEST 
ION SEQ 0277 
r=1982 16:23: TOPS-20 Bliss-16 v2(212) 
TEST CODE SECTION 3 a lat 18:573.98 PA:<NEALE>ML4AD.BLI.4 (70) 
6150 ! 
6151 
613¢ BGNTST: 
61 
o138 544 
61 5 { TEST NUMBER: TST 18 
6137 TEST NAME: § COMPOSIT ERROR TEST 
rae i TEST DESCRIPTION: 
6160 } TEST TO SEE IF SETTING EACH 
6161 | BIT IN THE ERROR REGISTER 
616¢ CAUSES A COMPOSIT ERROR BY: 
616% i WRITING A SHIFTING ONE THROUGH 
6165 THE ERROR REGISTER (SKIPPING THE 
6166 i READ ONLY BITS) AND TESTING THE 
167 ! COMPOSIT ERROR BIT IN MLDS 
6168 i FOR BEING SET AFTER EACH 
616 i WRITE. 
6170 | 
6171 ine 
617¢ 
6173 tocal 
6174 DAT_PAT, 'DATA PATTERN 
6175 SKIP_MASK; ‘POINTS TO MLER READ ONLY BITS 
oI79 CLR_MBUS: 
6178 SKIP _MASK = %0'163157°: : ‘LOAD SKIP MASK 
61 DAT_PAT = ONE: 'DATA PATTERN SET BIT 0 IN MLER 
cist iner cower from 0 to 15 do 'WRITE AND SHIFT DATA PAT TO MLER 16 TIMES 
" 
; 
Hs if (.DAT_PAT and .SKIP_MASK) neq ZERO ‘SKIP IF DAT_PAT FALLS ON READ ONLY BIT 
en 
o begin ; 
61 MLER = .DAT_PAT: ‘WRITE DATA_PAT TO MLER 
61 if .COMP_ERR IS_NOT_SET 'SEE IF DAT_PAT CAUSED A COMP ERROR 
6191 then 
$193 PeADr 
19 ERRDF (50, ASYNC, DUMPER): 'ERROR IF NO COMP ERROR 
6194 PRINTB (FOR_FMT, FNC_8, PHR_1, WRD_12, FNC_8); 
619 PRINTE (FMT_4, .DAT_PAT): 
e197 ENDSUB re 
gi end: 


$8 


DAT_PAT = .DAT_PAT“ONE; ‘SHIFT DAT_PAT TO NEXT BIT AND REPEAT 


ee 


-—o- 


mk 
x 


Boe Se 


SSSLSESSSSSer 


eed ed ced ceed eet ce ee eel ed ced ee eed eh etd ced weed od 
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ee 


1 
1 
1 
1 
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AAA ARRAOAAOAAG 


el eel el lh nl ll i al elt el el a el eh el el ee ed ae we el eed ee ed ed eed ed 
aruoton 
te et ete 


ROC 


FRR 


FRRRRLRLL 


MUI 


Vin 


eed end and end end eed coed edd ed 


MUMIA 
NIFSERNLSS 


sncd aad ceod ead cock 


asd wend 


. a 


wiwn 
a 
SRSNee 


J 
™ 


wd aed ad od 
BNO EOSKRS 


RROORD 
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TEST CODE SECTION 


end; 
ENDTST; 


137470 
: 0 
177770 


7 
1 
16315 

1 


150324 
040000 


000017 


150352 


150334 


150306 


$718: 


18: 
2s: 


3$: 


4S: 


af ond eee 
eT Rassonsee 







: 


2 
R1 
ah 


5 
62 


ASYNC 





o@ML .REG+50 


DUMPER 
#FNC.8,-(SP) 





6 


-SBTTL $118 TEST CODE SECTION 
JSR R1 


39-mar-1969 16:91:08 


SK 
* DAT. 
OUNT 


IP. MASK 


PAT 


DAT.PAT ,SKIP..MASK 


DAT .PAT ,* 


SP,* 


DAT.PAT,* 


SP,* 


DAT .PAT 
COUNT 
COUNT ,* 


SEQ 0278 


6195 


emer nceteetetstinnestieenneenree 
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ST CODE SECTION SEQ 0279 
sMLSAD r-1 16: TOPS 
: TEST CODE SECTION 2 A 1983 16: :: OS PA:< 
: Routine Size: 64 words | 
; Maximum stack depth per invocation: 12 words | 
’ 
118 -SBTTL 118 TEST CODE SECTION 
767 177574 1$: JSR PC.$T18 : 6202 
TRAP 
ROR 
1 BLO 1$ 
207 RTS PC 


; Routine Size: words 
: Maximum stack Pa... per invocation: 0 words 
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MLADO ML-11 LOGIC T 
8 TEST CODE SECTION SEQ 0280 
1 SALGAD r-1982 16:23:04  TOPS-20 Bliss-16 v2(212) 
is : TEST CODE SECTION 9-Mar-1982 16:23:03  PA:<NEALE>ML4AD.BL1.4 (71) 
12667 ; 6206 =! 

1 : §2C ’ 

12670 ; 5205 

12671 ; 5210 '44 

672 : 1 TEST NUMBER: TST 19 

16) : 318 i TEST NAME: ATA BIT TEST 

76 : 15 TEST DESCRIPTION: 

126 78 ; 3 i TEST THE ATA BIT FOR SETTING 

; 579 ; 6 18 } BY: 

12681 : 5220 | 1. SETTING A BIT IN THE ERROR 

136 $201 | REGISTER. 

1268 : 62 5 i TEST THE ATA BIT FOR CLEARING 

12685 ; 5224 | AFTER BEING SET BY: 

12686 ; 5205! 1. WRITING A FUNCTION TO MLCS1. 

12687 ; : i 2. WRITING A ONE INTO T THIS 

1268 : UNITS ATA BIT 

13690 : 3 TEST THE ATA BIT FOR NOT CLEARING 

12691 ; AFTER BEING SET BY: 

15698 ; $232! 1. WRITING A ONE INTO THE 

12694 ; : ATA BIT OF THE OTHER 

1265 g : ! UNITS. 

1 +: 70 ; . 5 ! 

1 4: : lon 

' 636 : local 

12700 : ATA_SAVE : bitvector (8). ‘STORES ALL 8 ATA BITS ON READS AND WRITES 
01 $ 40 DAT-PAT; iDATA PATTERN 

15708 : 5648 atEn> Se 

4 : 43 MLE = ONE ‘SET THE ATA BIT 

706 ; 5245 ATA _SAVE = .MLAS: 'READ THE ATTN REGISTER 

! 08 : +2) if .ATA_SAVE C.ML_DUT] IS_NOT_SET ISEE IF THIS DRIVES ATA BIT IS SET 

i 9 ; 48 a as ASYNC. R): 'ERROR AND EXIT_TST IF NOT SET 

erie 951 PRINTB. (FOR EM une ms. has WRD_11, FNC_8); 

12713 : ; EXIT_TST; 

} ay : 9333 end: 

1 016 +i if .ATTN IS_NOT_SET ‘SEE IF THE ATTN BIT IS SET 

12717 ; : 36 then 

12718 : ¥. begin 


ase: <a eee age ee . 


Eh ce eRe 


eee eee 
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CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR~82 11:18 PAGE 298 
T18 TEST CODE SECTION SEQ 0281 
1 3MLGAD r-19 " TOPS=20 Bliss-16 V2(212) 
1 : ; TEST CODE SECTION Sonar 1965 | SF: $8 PA:<NEALE>ML4AD.BLI.4 (71) 
7 4, 58 ERRDF (52, ASYNC, DUMPER) !ERROR AND EXIT_TST IF NOT SET 
726 q PRINTB (FIV_FMT, REG 2 WR 16, PHR_1, WRD_11, FNC_8); 
5 6260 EXIT_TST: 
7 § 6 $f end; 
7 6 63 MLCS1 = NOOP: | 'TRY TO CLEAR THE ATA BIT WITH NOOP FUNC 
6265 if .ATTN IS_SET 'SEE IF ATA GOT CLEARED 
1 6s6 then 
g F (53, ASYNC, DUMPER): 'ERROR AND EXIT_TST IF SET 


E 
PRINTB (FOR_ FMT, WRD_15. PHR 2. WRD_11, FNC_2, WRD_19); 


5 6270 EXIT_TST; 
a: end; 
6 75 ATA_SAVE = .MLAS; 'READ THE ATTENTION REGISTER 
rm 75 : f sATAL SAVE C.ML_DUT] IS_SET !SEE IF THE ATA REG GOT CLEARED BY NO-OP 
n 


Ge Ge Fe Fe ee Fe te Se Se Be Se Oe Be Pete Se ee Be Se Se Se Oe Be 
oa 
oOo 









74 begin 
74, 6278 _— ERRDF. (58, ASYNC, DUMPER)- 

744 6279 PRINTB (FIV_FMT, WRD_15, PHR_2, WRD_11, FNC_2, WRD_19); 

745 5280 end: 

746 : 5281 

747 ; Be 

748 : 6 83 LER = = ONE: ‘SET THE ATA BIT 

750 6285 ATA SAVE = ZEROES: ‘CLEAR ATA, SA 

751 ATA~ SAVE | CAL DUT) = ONE: iSET A A SAVE’ FOR T HIS DRIVE 

7 : B7? ~=MLAS = .ATA_SAVE: i FRY 1 ATLEAR THE ATA BY WRITING TO IT. 
; 5285 if ATTN IS_SET SEE IF THE ATA GOT CLEARED 


hh bagi ep 
525 ERRDF (54, ASYNC. R) IF NOT CLEARED 
g PRINTB (FIV_FMT, Pur. 2, WRD_11, WRD_ iprnoe REG_5): 

5 





eh ed eed oe ed wed one ed ROOF SPOOR Rr ee at el ml al a Dah a dc dd dd dg dd ed dd 
~ 
= 


Bete te Ge Be Fe Ge Be Ge Be Geo Ge Be Sse Se Ge Ge Ge Be Ge Fe Ge Ge Ge Bs re 
A 


ENDSUB; 

ao 

698 LER = ON zh, 'SET THE ATA BIT 

$300 DAT PAT = ‘DATA PATTERN OF ONE iN FIELD OF ZEROES 
, ; ( incr mam from 0 to 7 do 'REPEAT LOOP 8 TIMES 

53 begin 

5305 if -ATA_SEL neq .ML_DUT !SKIP IF ATA_SEL EQLS THIS DRIVE NO. 

5307 

5308 LAS "= yraT Pali ‘WRITE DAT PAT TO ATA REGISTER 
77% 5305 ATA_SAVE = “MLAS; IREAD ATA REG BACK 


| 
’ 
" 
’ 
; 
’ 
Snipa sciinieittadeeictzmsiatinenaracssictaminemsteicontssniee oes, en ae eee 


Ee eet Re sete 


NNEC: shame ee 
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C ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:78 PAGE $99 
T18 TEST CODE SECTION SEQ 0282 

12776 :ML4AD r-1982 16:23: TOPS=20 Bliss-16 v2(212) 

i : TEST CODE SECTION r=1 18:57:68 PA:<NEALE>ML4AD.BL1.4 (71) 

1 : 6310 | 

i 780 : 6 i if -ATA_SAVE C.ML_DUT] IS_NOT_SET 'SEE IF THIS DRIVE ATA IS CLEARED | 

12782 : 631 in 

12783 : 6314 é (55, ASYNC, DUMPER): ‘ERROR AND EXIT LOOP IF CLEARED 

12784 ; 6315 PRINTB (SIX_FMT, WRD 15, PHR_6, WRD_11, WRD_17, REG_5, PHR_7); 

12785 ; 6316 PRINTB (FMT_7, .DAT_PATS; 

12786 ; 631 exitloop; 

12787 ; 6 18 end; 

12788 ; 631 

} 789 ; ° y end; 

12791 : 6 g DAT_PAT = .DAT_PAT“ONE; ‘SHIFT DAT_PAT AND REPEAT 

1 : & end: 

12793 ; 6324 

1 : 6325 ENDSUB: 

! £33 s 6326 ENDTST: 

12800 -SBTTL $119 TEST CODE SECTION 

12804 137254 $719: JSR VE3 ; 6204 

128 090040 150136 BISB ; 6240 

12806 1 0520 Vv 

i ; 000007 150120 ste 

12805 150114 BISB 

1281 1 150126 MOV : 6243 
a1 1 1¢2 CLR ; 6244 
B1 150126 MOV : *, ATA. SAVE 6245 
BI 150460 MOV ; 6247 
BI ASR 

B15 ASR 
$16 ASR 

; MOV : ATA.SAVE,* 

+: nov 
82 130440 MOV 

128¢ 177770 BIC 

128 000001 MOV 

: i 136224 Ooh 

1 356 000046 ADD 

1282¢ TST 
+ BNE 

i $y. TRAP : 6250 

12825 - WORD 

1283C . WORD 
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tas wow 

be Be DOOR UINDOS 5; 
RARE “rs wx oO =n KRAAARAA SS I~ ~ 
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C ML-11 LOGIC 
$T19 TEST CODE SECT 









15888 
1 289 
1g83) O66 
15894 04590 
44 7 
1¢895 04570¢ 
1 B96 ", 
1 2897 ( 
1¢898 ¢ 
! 4-34 '» f ¢ ' 
$4", ’ 
16901 ¢ f,' 
1 y 4! ' 3 
16903 0657; 
} > 4! ' se 
+4! '» ; 
y +4! é D4 
16907 045764 
12908 ¢ 4; 
16909 04 
15911 948964 
+. ly f 4 4 
ig ; ee 
vrt,+ 
183 04600; 
SOI Hacnrc 
15¢ rea 
5919 44020 
4 » 04602 
5957 044056 
055 ACaAS 
96 nA0%. 
+. ALARA 
O5¢ nzenat 
9§ , OAL 
?. { VAAL 
5m OLADLE 
9 5¢ 04605¢ 
aan ALAr 
+. MANA" 
+. Vet, +e 
OS Aeanr 
% NAP A 
7 Nd * 
44104 
isda Boole 
44177 
| ‘ey 
nA 
447 Of 
12942 04612 


TEST 
ION 


a a te. — i a a a ~~ a 
wash 
wet sod 
43 
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wot Re 


571 
y. +58 66001 
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147444 


sML4AD 
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TEST CODE SECTION 





16,SP 
1 


2Vv2 










222Re 
eet 
= 3 

2 


eREG+70 


10(SP) 
REGS 


ATA. SAVE ,* 


SP ,* 


ATA. SAVE 


; ATA.SAVE,* 


ATA. SAVE, * 





SEQ 0284 


r=-1 16:23:06 
ra 9B5 16:21:03 





TOPS | 
PA:< | 


6278 


6279 


wow 


5 


62 
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cz ML~-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE S02 
$T19 TEST CODE SECTION SEQ 0285 
125 sMLGAD r-1 16:23:04 TOPS 
. 945 $ TEST CODE SECTION Sonar 1983 16:21:03 PA:< 
12947 046130 012746 011 MOV | 
12968 046134 01 fie 10696 MOV 
12949 046140 013746 MOV 
1 295 9461 910600 MOV ; SP,* 
12952 0461 04414 TRAP 
12953 046154 062706 900016 ADD : 1 
12954 046160 062706 1 7$: ADD ; 
12955 046164 10446 TRAP 
1 295¢ 1461 90600 ROR 
1 +2 9461 ’ ’ ' BLO 
12958 046172 10440 8$: TRAP ; 
12959 046174 01¢ 1 147262 MOV : 
1 2960 D4¢ 206 905077 4 CLR : 
1296} 046206 0127( 1 MOV > *,DAT.PAT é 
12962 046212 0050 CLR > ATA.SEL 
1936, 4621 iF 0267 147612 9S: cp >; ATA.SEL.* 4 
129¢ 046 0377 14 46 MOV ; DAT.PAT,* é 
12966 46226 17716 14 4 MOV 3 *, ATA. SAVE 6 
12967 046232 016701 147574 MOV : Ost 
12968 462 36 ve 201 ASR 
4.6 46240 Wh: )1 ASR 
9 7C bh 106201 ASR 
97 046¢ 1060¢ MOV ; ATA.SAVE,* 
1 972 6946 "4006 ADD 
+ nh ¢ nie MOV 
974 046252 147 MOV 
75 046256 i BIC 
176 046262 000001 MOV 
: Vet hd 9036 CLR 
978 046270 OC 135 JSR 
79 0462 62 1 ADD 
280 046300 00! TST 
af 1 14630 01 BNE H 
982 046304 1( TRAP : 6314 
oJ: 146 204 100067 ~ WORD 
984 04631( D121 -WORD  ASYNC 
BS 046312 -WORD DUMPE 
ies Biseey shes BU yas | * 
BB 046324 0127466 01 MOV = #URD 
BD 046330 5 01 MOV MURD 
00 046334 ( 5 601 MOV #PHR 
991 04634( 4 5 O01 MOV #WRD 
992 046344 5 07 MOV I 
pie TPAT ' ‘ : MOV > 
ve 04635 ' H ve MOV we : SP,* 
995 046356 1 TRAP 
12996 046360 ( MOV sR ; DAT.PAT,* 6316 
12997 046362 01 46 907002 MOV AER 
12998 046: 912746 MOV #2 





O_O esate i ie ieeenetesteeenennsisssyassseumnistieeunssususitummmutsiimscmsssimesemeseeers 


7 
MACRO M1113 30-MAR-82 11:18 PAGE $03 


aad a 
SSS: 
WHS 


~ ¢ 
++ 
&rn 


=} 
Ss 


~ 
++ 


—- 
—* 
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“2 
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- 


oe ced 
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ed ed ed ow 
MOOS WI NO uns 


-— ee) eT we 


<> 


/\ ? 176640 


>on 6 


& 20 


ote 


NOOO wc 


6327 !<BLF/PAGE> 


sMLSAD 

3 TEST CODE SECTION 
MOV SP,.RO 
TRAP 14 
ADD #24,SP 
BR 11$ 

10$: ot R3 
CMP RS a7 
BLE 9$ 

11$: TRAP 67 
ROR RO 
BLO 8$ 

12$: TST (SP)+ 
RTS PC 


; Routine Size: 302 words ; 
: Maximum stack depth per invocation: 16 words 


19 -SBTTL 119 TEST CODE SECTION 
1$: JSR PC,$T19 

TRAP 

ROR 

BLO 1$ 

RTS PC 


; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 


; ATA.SEL,* 


SEQ 0286 


9367 :08 TOPS 
6:21:03 PA:< 


6317 
6322 
6302 
6323 


6204 


6325 








tee 
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CZMLADO ML~11 LOGIC T 
Hi9 Test CODE SECTION SEQ 0287 
13050 :ML4AD 
1050 ; r-1982 16:23:04 TOPS-20 Bliss- 
13091 TEST CODE SECTION r=1982 16:91:08 PA: <NEALESMLGAD-BL i: (72) 
13053 ; 6328 ! 
13054 ; 6329 
13098 : 6330 GGNTST: 
13057 ; 635¢ i++ 
13058 6333 { TEST NUMBER: TST 20 
13060 ; 6339 i TEST NAME: SEARCH FUNCTION TEST 
1306 ; 6 { TEST DESCRIPTION: 
0¢ 4 ; 6 TEST THE SEARCH FUNCTION BY: 
13066 ; 6341} 1. DOING A SEARCH FUNCTION AT 
13067 ; 6302 ARRAY ZERO AND TEST GO 
13068 : 6343 | ERROR BITS AND ATTN FOR 
13069 ; 6346 SETTING/NOT SETTING. 
13071 ; 6346 | 2. DOING SEARCH FUNCTIONS AT 
1307¢ ; 637 PRESENT ARRAYS" AND TEST ATTN 
i ee. 
13075 ; 6350 | 3. DOING SEARCH FUNCTIONS AT 
13076 ; 6351 | NOT PRESENT ARRAYS* AND TEST” 
13077 ; bse | ATTN CLEARED. 
1 fh ; 6 : : 
13079 ; 6354 !-- 
1308): 6356 CLR MBUS; 
1308; ; 6357 MOA = 7éROES; 
13085 ; 6398 MLCSI = SEARCH; !D0 A SEARCH FUNCTION 
08s : 
13089 ; 6360 if .GO IS_sET !SEE IF GO IS SET 
1086 : ? : then . 
13088 ; 636: RADE (56, ASYNC. DUPER); 'ERROR IF NOT SET 
13089 ; 636 PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_10, WRD_19); 
+4! e 6 65 end; “ 
US : 5 566 
1309¢ 53¢ if .ILF IS_SET ‘SEE IF ILF IS SET 
+4: » JIC then 
13095 3% ERRDF_ (57, ASYNC. DUNPERD 
4- e . ’ Sd e ‘ERROR F T 
1 303% 5 i PRINTB (FIV_FMT, “WRD_3, PHR_S, WRD_11, FNC_11, FNC_10, WRD_19); 
j non ° , 
n0o * : 
13099 5304 if ATTN IS_NOT_SET 'SEE IF ATTN IS SET 
13101 ; 7 in 
13102 ; 73 ERRDF (59, ASYNC. DUMPER):; i 
13108 8 PRINTE (FIV_FAT, WRD_16, PHR_1, WRD_12, FNC_i0. WRDLIDS 


I ee eesti asst sryesnen-inssnesnussenssisscenetiseesnenssiannesteneneerernnrenereeeeee-......._ 
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CLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 505 
T19 TEST CODE SECTION SEQ 0288 
13106 ;MLSAD r-1 16:23: TOPS-20 Bliss-16 V2(212) 
: ig ; TEST CODE SECTION $3-nor 1983 18:57308 PA: <NEALE>ML4AD.BLI.4 (72) 
1 else 
: begin 
, CLR_THRESHOLD: CLEAR ERROR PRINT THRESHOLD 


: VERSION CZMLAD CHANGED INCR TO INCRU 
'  ?neru ARR_SEL from 0 to .LST_ARR by .ARR_INC do !DO SEARCH AT ALL PRESENT ARRAYS 
n 


NOUS WHO 
Be ee Se Ge Ge Ge Bee De Ge Ge Se 


ed eed eed end eed ad 


Ooo 





1 MLDA = .ARR SEL: ‘LOAD DSA REG WITH ARR_SEL 

é MLCS1 = SEARCH: ‘DO A SEARCK FUNCTION 

4 if .OPI IS_SET 'READ ATTN 

5 then 

4 'COMPARE ERROR PRINT THRESHOLD 





‘ERROR IF NOT SET 
» WRD_12, FNC_10, WRD_19); 








a a ed a eal lh eel el mel el ce el ee el eh el dh ce a ce ce end eh ee ee , ee a 


64 CLR_ THRESHOLD; ‘CLEAR ERROR PRINT THRESHOLD 
64 tf OP JAAR iss 2%0°000017° ‘SEE IF LSS 17 ARRAYS ARE PRESENT 


=o 


: VERSION CZMLAD CHANGED INCR TO INCRU 


incru ARR_SEL from (.LST_ARR + -ARR_INC) to -ARR_16 " 


eARR_INC do 
DO A SEARCH AT ALL NOT PRESENT 


ad ed ae ed aed ed eed 
HELP LLPLSE 








OWOONAULEWN =O 


end nd cond ond cod ond) od od ed 


: in IARRAYS IF LSS 17 
1 CLR_MBUS: 

1 MLDA = .ARR SEL: 'LOAD DSA REG WITH ARR_SEL 
MLCS1 = SEARCH: iDO A SEARCH FUNCTION 

i if .OPI IS_NOT_SET ‘SEE IF OPI IS SET 

1 then 





in 
bee THRESHOL ‘COMPARE ERROR PRINT THRESHOLD 
ERRDF ay ; 


D; '¢ 
ASYNC, DUMPER): ig 
PRINTB (FIV FMT, WRD & 





IF NOT 
s , PHR_1, vab ie, FNC_10, WRD_19); 
PRINTB (FAT 9, :ARR_SEL) 


OSAP UU OOe 


On een a a lm a lc ll cd ch co ed ed aed ed aed od od ed ed od ed ed dd 


IIS SIS SS SS SSS SS SS SSS 
UW 


omy 








SEQ 0289 


re ere eene-neneeees 


Bliss-16 Vv2(212) 


PA:<NEALE>ML4AD.BL1.4 (72) 


TOPS-20 


Soomara1985 19:58:08 


CODE SECTION 


*, 
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TEST CODE SECTION 


IC TEST 
SECTI 


ML~11 L 
TEST CODE 
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oe Late oe 5 
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$T20 TES CTI SEQ 0292 


T CODE SECTION 
331 f= TEST CODE SECTION ar-198 16:57:03 Bons 
ae Stele 
EES geal i atts “ns 
f Ls, 6 ; ’ 128: ; 6306 





: Routine Size: 250 words 
: Maximum stack depth per invocation: 13 words 


-SBTTL T20 TEST CODE SECTION 


754 767 177010 : « ean 6435 
7434 1 ; TRAP 4 . 

ce = 

746 20 RIS sé 


; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 
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SEQ 0293 


c 
I 
r-19 16:23:04 TOPS-70 Bliss-16 v2(212) 
TEST CODE SECTION r-1982 16:21:03 A:<K ALEDML4AD.BLI.4 (73) 
‘ 
BGNTST; 
lay 


i TEST NUMBER: TST 21 


TEST NAME: POWER FAIL TEST 
TEST ett 


THIS TEST IS PART OF THE ae. INTERVENTION 
TEST SECTION. DRIVE CONDITIONS Test vane 

AROUND R FAIL SITUATION ARE TEST 
FUNCTION TESTED FOR ARE AS FOLLOWS: 


1. VV BIT SETTING AND CLEARING 


2. READ-IN-PRESET FUNCTION SETTING 
THE VV BIT. 


3. ECC INITIALIZE CLEARING OUT MEMORY 
WITH BAD BATTERY BACK-UP. 


4, ate 5 SOT wed CLEARED BY 





















°MB_DIS L 
3. UNSAFE BIT “UNS SETTING DURING AC 
POWER LOSS. 

local 
SIZE, ‘STORES THE SIZE OF MASS BUS TRANSFERS 
DST, ‘STORES THE DESTINATION ADRS OF MASS BUS TRANSFERS 
SRC, iSTORES T THE SOURCE ADRS OF MASS BUS TRANSFERS 
DSA_CNT. i {COUNTS T NUMBER OF BLOCK TRANSFERS DONE 
CLR_DATA, ig TORES 7 THE EXPECTED CLEARED DATA FROM THE REGISTERS 

x, tINDEX VALUE INTO ML_REG STRUCTURE TO ACCESS THE REGISTERS ADRS 

WCE_CNT: 'COUNT THE NOMBER OF WRITE CHECK ERROR DETECTED 

t+ 

PERFORM THIS TEST ONLY If THE OPERATOR HAS 

! ENABLED MANUAL INTERVENTION TEST VIA THE S/W 

_QUESTIONS. 

ei . INTERVEN ‘DO THIS TEST IF INTERVEN IS SET 
begin 


{ PRINT WHICH TEST THIS IS 


+ ee ee ee ee 


a oe ee 


“oo 


EL Te — 


TT See eeeenteesnnssieseeeneeenenntsnrnereneeneeeeee 
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O TEST CODE SECTION 
1 ‘ 9-Mar-1982 16:23:06  TOPS-20 Bliss-16 v2(212) 
— TEST CODE SECTION Soma 1385 16:21:03 § PA:<NEALEDML4AD.BLI.4 (73) 
1 : 6491 | 
1 : 9 PRINTS (ONE_FMT, T_21); ‘PRINT T_21 MESSAGE 
1 : rats BGNSUB; iSTART STOOP LOOP 
13436 $698 
1 : 6496 | FIRST TEST THE VV BIT FOR SETTING. 
1 : 6497 | TO DO THIS FIRST SEE IF THE BIT I§ 
1 : 6498 | ALREADY SET. IF ALREADY SET THEN 
13440 : 6499 | SEE IF THE READ-IN-PRESET FUNCTION 
13441 : 6500 | CLEARS THE BIT. IF NOT ALREADY SET 
1 ¢ : 6501 | THEN SEE IF THE READ-IN-PRESET FUNC 
1 : 6502 i SETS THE BIT. 
1 : 6503} | 
13445 : 6504 
i 46 6509 CLR_MBUS; ‘CLEAR THE MASS BUS 
13448 : $258 if .w 'IS THE VV BIT INITIALLY SET 
13449 : 6508 then iTHE VV BIT IS SET 
1 50 : 6509 begin 'SEE IF THE READ-IN-PRESET FUNC CLEARS IT 
31 ; 6310 MLCS1 = RD_IN_PRE; 'DO A READ IN PRESET FUNCTION 
1 2g : 6312 if not (.Vvv) ‘DID THE VV GET CLEARED 
13456 ; 651 then 
13455 ; 6514 begin 'THE VV GOT CLEARED 
1 56 : 6515 ERRDF (149 ASYNC, DUMPER); ‘REPORT THE ERROR TO THE OPERATOR 
1 : 6316 PRINTB (ONE_FMT, VV_CLEAR): ‘TELL WHAT THE ERROR IS 
1 : 651 end 
1: ; 6518 
13460 ; 6519 end 
13461 : 6520 else 'THE VV BIT IS INITIALLY CLEARED 
13462 : 6521 begin 'SEE IF A READ-IN-PRESET FUNC SETS THE VV BIT 
: 69 é MLCS1 = RD_IN_PRE; 'DO A READ-IN-PRESET FUNCTION 
! : 63 é if not (vv) ‘DID THE VV BIT GET SET 
Wer e359 ERADF. (150, ASYNC. DUMNPERD IREPORT THE ARON TO SPERATOR 
; é3 PRINTB (TwO_FMT, WV_NOT_SET, FNC_11): ‘TELL WHAT THE ERROR IS 
i ; é3 end; : 
1 : re : 
13498 e334 
1 : 6535 | NOW TEST DRIVE ERROR CONDITIONS TO SE 
1 : 6 ' IF DOING A READ-IN-PRESET FUNCTION CAUSED 
1 : 6537 | ANY UNEXPECTED DRIVE ERRORS. 
ee 
1 : 40 
1 : 654 if .GO IS_SET 'DID THE RD-IN-PRE FUNC HANG THE GO BIT 
1 $ 6542 then 


ee ceed ed eld eld eel 
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SEQ 0295 
r-1982 16:23: TOPS=20 Bliss=16 V2(212) 
TEST CODE SECTION r=1 18:53:98 PA:<NEALE>ML4AD.BL1.4 (73) 
in ‘THE GO BIT IS $ HUNG | 
Ha Me (62, ASYNC, DUMPER) : ‘REPORT THE ERROR TO THE OPERATOR i 
PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_11, WRD_19); TELL WHAT THE ERROR IS | 
if -JUF 1S_SET ‘DID THE RD-IN-PRE FUNC CAUSE A ILLEGAL FUNC ERROR | 
‘THE ILF BIT IS SET 
E (63, ASYNC, DUMPER): ‘REPORT THE ERROR TO THE OPERATOR 
PRINTE (FIV_FMT, WRD_3. PHR_S, WRD_11, FNC_11, WRD_19); ‘TELL WHAT THE ERROR IS 
if OPI 1S_SET !DID THE RD-IN-PRE CAUSE A OPERATION INCOMPLETE ERROR 
in 'THE OPI BIT IS SET 
ERRDF (64, ASYNC, DUMPER): ‘REPORT THE ERROR TO THE OPERATOR 
PRINTB triv’ FMT, WRD_4, PHR_S, WRD_11, FNC_11, WRD_19); 'TELL WHAT THE ERROR 
| _ ENDSUB; ‘END SCOOP LOOP 
: 
1 NOW WE'LL TEST THE VV BIT FOR CLEARING 
! AFTER POWER UP WITH BAD BATTERY Y BACK-UP 
! ECC INITIALIZE CLEARING MEMORY TO ZEROES 
! AND DC LO CREATING "MB_DIS_LO* AND CLEARING 
! OUT DRIVE REGISTERS. 
i 
* _ BGNSUB; 'START SCOOP Loop 
10_BUF = ONES; ‘LOAD THE FIRST 10 BUF WORD WITH ONES DATA 
| DSA_CNT = =1; IRESET THE DSA COURTE 
: 
! WRITE A BACK GROUND OF ALL ONES TO 
! ALL OF MEMORY. THIS WILL PROVE IF 
! ECC INIT TOOK PLACE AFTER POWER UP 
! WITH BAD BATTERY BACK-UP. 
e 
, ‘LOAD ALL OF MEMORY WITH ONES DATA 
n 
BREAK: ‘LOOK FOR A CONTROL C 
DSA_CNT = .DSA CNT +1: ‘UP THE DSA COUNTER 
WRT TRANSFER (SIZE = i656, DST = .DSA_ ent SRC = I0_BUF): 'DO A BLOCK WRITE TRANSFER 


'VER CZMLAD CHANGED TEST TO UNSIGNED TEST 
"until .DSA_CNT eqlU .LST_BLK; 


‘REPEAT WRITING UNTIL THE LAST BLOCK IS WRITTEN 


a 


541 


a oy 


SLES Sd 







ed ta ede) 
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TEST CODE SECTION 


ERR_FLG = ONE; 
CLR_MBUS; 


TELL THE OPERATOR THE SHUT OFF 
POWER AND AS THE AC POWER IS GOING 
DOWN TEST ‘UNS BIT’ FOR SETTING. 


PRINTB (ONE_FMT, PWR_OFF); 


begin 
if .UNS 
then 
ERA Ps = ZERO; 
xi 
end; oe 


wat -NED; 
if .ERR_FLG 
then 


ERRDE_ (151 


PRINTB (ONE_ 







ON. 
DRIVE IS READY TEST bi hy 
! SEE IF THE POWE 





NOW TELL THE OPERATOR TO a" 
THE BOX R 


PRINTB (ONE_FMT, PWR_ON); 


do 
Bek 
AK; 
end 
until .DRY; 
if .w 
then 


ASYNC, DUMPER) ; 
FMT, UNS_ERR); 
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TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BL1.4 (73) 


HBB test 


:CLEAR THE ERROR FLAG 
‘CLEAR THE MASS BUS 


‘TELL THE OPERATOR TO TURN BOX POWER OFF 
‘SAMPLE THE UNS BIT UNTIL THE DRIVE TIMES OUT 
‘LOOK FOR A CONTROL C 

‘IS THE UNS BIT SET YET 


+ SET 
-THE BIT IS NOT IN ERROR SO CLEAR THE ERROR FLA 
'EXIT THE LOOP ™ 


‘REPEAT SAMPLING UNS UNTIL NED IS SET 
‘IS THE UNS BIT IN ERROR 
‘THE BIT IS IN ERROR 


‘REPORT THE ERROR TO THE OPERATOR 
‘TELL WHAT THE ERROR IS 


‘TELL THE OPERATOR TO TURN BOX POWER BACK ON 
!DO NOTHING 

‘LOOK FOR CONTROL C 

‘UNTIL THE DRIVE IS READY 


SEQ 0296 


:DID THE POWER FAIL WITH BAD BAT BACK-UP CLEAR THE VV BIT 


N 7 
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CZMLADO ML-11 LOGIC T 
T20 TEST CODE SECTION SEQ 0297 

97 ;MLGAD g-Mar-1982 16:23: TOPS-20 Bliss-16 v2(212) 
} 13898 3 TEST CODE SECTION G-Mar-1982 16:91:03 PaseNEALESML EAD BLT a 273) 
13600 ; ‘THE VV BIT DIDN'T GET CLEARED 
13601 ; RADE (152, ASYNC, DUMPER) ; ‘REPORT THE ERROR TO THE OPERATOR 
13608 ; PRINTE (ONE_PAT Wve SET ITELL WHAT THE ERROR IS 

*! e 
136C : : 
13605 ; incr REG. SEL from 0 to 6 do ‘SEE IF DC LO ON POWER UP CLEARED THE REGISTERS 

5606 ; gin : 

13607 ; 
i 5608 ; selectone .REG_SEL of ‘SELECT THIS REGISTERS INDEX VALUE 
13610 : 
13611 ; [0] : | 
13618 index = 0; 'TEST MLCS1 
13614 ; [1] : 
13615 ; index = 6; !TEST MLER 
13617 : 3 oe 
13618 index = 3; 'TEST MLDA 
13620 : C3] : 
13653 ; index = 10; 'TEST MLMR 
13623 : C4] : | 
13688 ; ~ index = 13; TEST MLE1 
13626 ; [5] : 
136¢ : index = 14; : ‘TEST MLE2 
13629 : 1: | 
13630 ; index = 8; ITEST MLPA 
1365) ; tes; | 
13633 ; CLR_DATA = (.HI) or (. IGNORE); ‘GENERATE THIS REGISTERS CLEARED DATA 
13634 RD_REG (.CLR_DATA, .REG_SEL, ERR_FLG); READ THE REG FOR ITS CLEARD DATA 
13630 ; if -ERR_FLG !DID THE REGISTER GET CLEARED ON POWER UP 
13638 ; in | {THE REGISTER*S NOT CLEARED 
13639 ; (153 {REPORT THE ERROR TO THE OPERATOR 
13640 ; PRINTB (ONE_ DIS_ERR); TELL WHAT THE ERROR IS 
13641 ; PRINTS (FAT_16, .MLIREG C. index, REGISTER_ADDJ, opgt® "DATA, «RD_DATA); 
! 104e exit loop : SEXIT THE L 
13644 ; 

645 : , 
13647 ; WCE_CNT = ZERO; jCLEAR THE WRITE CHECK ERROR COUNTER 
13648 ; DSA-CNT = =1; IRESET THE DSA COUNTER 
13649 10_BUF = ZEROES; !LOAD THE FIRST I0_BUF WORD WITH ZEROES DATA 
13651 ; 


do | 'SEARCH ALL OF MEMORY FOR INIT*ED DATA 


$$ ®R?LEL LLL LLL LLL LT LCL CLA Cette . ————— 
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T20 TEST CODE SECTION SEQ 0298 
13653 :ML4 1982 16:23: TOPS-20 Bliss-16 V2(212) | 
1% i — TEST CODE SECTION $3-Maret 18:57 308 PA: <NEALESMLGAD BL 1% 273) | 
13656 ; i 
1368? | 66% K: 'LOOK FOR CONTROL C 
13658 ; 6701 DSA_ CAT = .DSA_CNT + 1; 'UP THE DSA T 
13699 6702 WRT~CHK_ TRANSFER (SIZE’= -256, DST = .DSA_CNT, SRC = I0_BUF); !WRITE CHECK THIS BLOCK 
13661 ; 6 if .WCE then WCE_CNT = .WCE_CNT + 1; © !1S THIS BLOCK INIT*ED UP COUNT IF NOT 
66 ; e7 end 
665 6708 IVER CZMLAD CHANGED TEST TO UNSIGNED TEST 
13667 : 6710 "until .DSA_CNT eqlU .LST_BLK; CONTINUE WRITE CHECKING UNTIL THE LAST BLOCK IS DONE 
669 : 6712 if -WE_CNT gtr 127 !WAS THERE MORE THAN 127 SECTORS IN ERROR 
13671 : 6714 begin MORE THAN. 127 SECTORS IN ERROR THERE FOR INIT ERROR 
13672 ; 715 (65, , DUMPER): T THE ERROR TO THE OPERATOR 
13675 ; 671 PRINTE (ONE F APM *NO_INIT): TELL UMAT THE ERROR IS 
13675 : 6718 
13676 : 67 ENDSUB; 'END SCOOP LOOP 
15677 ; 6 end; 
13678 ; 6721 
13679 6722 ENDTST: 'END THE TEST 
13684 -SBTTL $121 TEST CODE SECTION 
13686 2 | 004 7 930013 $721: JSR RI SSAVES : 6437 
6H e $0000 132726 IT # » INTERVEN ; 6484 
1365 6 1300 JMP 
13693 0476 1 1$: MOV aT -21.=(SP) : 6492 
1369% 047 12746 01024 MOV feciGe) MT ,-(SP) 
13698 127 MOV 
02 - MOV hi Py SP ,* 
1366 1 2$ TRAP 
13695 0 14572 —=—=s- BSB #40 aL -REG*40 
1 703 1 oe are 
139 145706 BICB 
70: BISB 
208 Ks 000100 145704 ITB »@ML .REG+50 | : 
i. 1 145624 MOV OB REG ; 
139 777 $601 80 145666 BITB ri06°on @AL .REG+S0O : 
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ZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE $18 
ToT TEST CODE Sect 10M SEQ 0301 
r=1982 16:23:04 TOPS 

13832 ‘me TEST CODE SECTION So-mara1985 16: 1:03 PAr< | 
13852 054 4 1 0s: 22 : 6607 | 
13825 050316 052777 040000 145140 #40000, ML .REG+60 661 
13655 050396 06 000024 4(SP) : ERR.FLG 661 
13828 5 5: 004( 12s : 661 
13829 05033 932777 010000 145102 118: #10000, amt .REG+40 661 
13831 050344 932766 000001 000024 128: : *,ERR.FLG 6620 
13488 of08ss Tou438 ; ac 
13834 050356 WORD 

, B36 050862 £302 “WORD 

13837 05036 7 Hov 6626 
1 5 iE 05¢ [70 aad 

: 8 ' 05¢ " MOY s SP,* 

138e3 ent ADD 6622 
13843 05041( 13$: MOV : 66 
13844 050414 "Ov 

13845 05062 MOV 

13846 05( MOV ; SP,* 

13847 05046 TRAP 

13848 050430 1( 146$: TRAP 664 
13849 050432 105777 145016 TSTB 664 
1 REL rSC 7 10037. BPL ; 
13851 05044¢ 2777 000100 145006 8176 : 664 
13888 Os0es6 Saces TRAP 6648 
! x 7 ernie WORD 

lass Geneee 2006: — 

iene peetee Sasso “WORD 

13857 050460 012746 005764 MOV . 6649 
1 r 050464 ‘ g ; 40 MOV 

t t ] ' g ‘ 

13860 05% "T0400 pod 3; SP,* 

i 86 | ' 104 7¢ 3706 TRAP : 6647 
13863 05050 005008 — 5s: CR RS” > REG. SEL 665 
1386 32080 00570! 16$: TST : REG.SEL 665 

2 *»\é ‘ i% t, 

13866 05¢ 0 Hf ck OR ; INDEX 6659 
1 rou " 0! i ' ste as : 6655 
13803 50516 020527 000001 17$: CMP wi : REG.SEL,* 

13865 3 00104 BNE 188 ep 

! + tA! p2026% : 92 000006 - 236" 1% S66¢ 
13872 00532 020527 000002 188: CMP Se : REG.SEL,* 

1 jE i 505 7. nif “4 BNE 19$ . <i 

' y: R 0508 ; : if 3 000005 on / Re : : 666 
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: REG.SEL,* 


*, INDEX 


: REG.SEL,* 


; *, INDEX 
INDEX ,* 


*, INDEX 
REG.SEL,* 
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* CLR.DATA 
CLR.DATA,* 
REG.SEL,* 
ERR.FLG,* 
# ,ERR.FLG 


SP,* 


CLR.DATA,* 


SP,* 


REG. SEL 
REG.SEL,* 


39-ma 


r-19 
r-19 


16:3 
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MLADO ML-11 LOGIC Tf 

1 TEST CODE SECTION 

1 sMLGAD 

: ; TEST CODE SECTION 
1 117 a 

1 117 1$: JSR PC.$T21 

1 1 TRAP 

1 1 ROR 

1 1 BLO 1$ 

: 1 RTS PC 

1 3; Routine Size: 6 words 

1? ; Maximum stack depth per invocation: 
1 

14010 ; 6723 !<BLF/PAGE> 


eee TEE 


0 words 


53-ma 


r=1 


rn 138s 


SEQ 0304 
16:23:04 TOPS 
16:21:03 PA:< | 
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—s 


x 





wal nl cell nl lt lt aly eal cl el al el cals el cen el eal cl ly ceed el cal eel ces eae eon 
a nb ad mp eh nd np ne ae ae ae ae ee we ee oe ee 


AAA 


~ 
ve 








reeset sete 


8 
MACRO M1113 30-MAR-82 11:18 PAGE $22 


r=1 16:23:06 TOPS-20 Bliss-16 V2(212) 
TEST CODE SECTION Sona -1985 18:37:03 PA:<NEALE>ML4AD.BLI.4 (76) 


oe WRITTEN TO ML 


WRIT 





++ 
TEST NUMBER: TST 22 

TEST NAME: ILLEGAL FUNCTION TEST 
TEST DESCRIPTION: 


TEST THE DETECTION OF ts 






ALL POSSIBLE ILLEGAL 
FUNCTIONS TO MLCS1. THEN 
AND ERROR BITS CLEARED. 








local 
BAD_BITS, 'STORES A COUNT TO GENERATE BAD FUNCTIONS 
FUNC: 'STORES GENERATED BAD FUNCTION 
CLR_ THRESHOLD; !CLEAR ERROR PRINT THRESHOLD 
BAD-BITS = ZEROES: 'CLEAR BAD BITS 
iner cNT.1 from 0 to 2 do 'REPEAT LOOP 3 TIMES 
_BITS = .BAD_BITS + %0°2": ‘ADD 2 TO BAD_BITS 
incr CNT 2 from %0'1" to 20°71" by %0'10" do 'REPEAT LOOP GENERATING ‘GOOD' FUNCTIONS 
+ .BAD_BITS; !ADD BAD_BITS TO CNT_2 GENERATING BAD FUNCTIONS 
‘SET UP A FIRST BLOCK XFERR 
‘LOAD MLCS1 WITH TWO BAD FUNCTIONS 
if .ILF IS_SET ‘SEE IF ILF IS SET 
then 
begin 
if 60 1S_SET ‘JF ILF IS SET THEN SEE IF GO IS SET 









‘COMPARE ERROR PRINT THRESHOLD 
RRDF (66, ASYNC, R): ‘ERROR IF GO SET WITH BAD FUNCTION 
PRINTB (Flv. WRD_ 1. PAR. 2, WRD_11, FNC_12, WRD_19); 





PRINTB (FA 
end; 


A 


; 
eet 



























& 
CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 323 
T21 TEST CODE SECTION SEQ 0306 
:ML4GAD 9-Mar-1982 16 TOPS-20 Sliss-16 V2(212) 
14069 TEST CODE SECTION 1 a at 16 $3: 08 PA:<NEALE>ML4AD.BLI.4 (74) 
14071 ; 677 | 
14 ie: : £556 end | 
1 : ore else | 
14074 ; 67 beg n 
14075 : 6 CMP THRESHOLD: 'COMPARE ERROR PRINT THRESHOLD | 
1 26 : 6781 ERRDF (67, ASYNC, DUMPER) zERR OR BAD F FUNCTION DON'T CAUSE ILF | 
14077 : 67 PRINTB (FIV_FMT, ‘WD a” PAR_ 1, WRD_17, FNC_12, WRD_19); 
14078 : 67 PRINTB (FMT_12, .BAD-FUNC); 
1 : $7 : end; 
14081 : 6786 if .OPI IS_SET ‘SEE IF OPI IS SET 
14 s 678 then 
14 : ores 7 
14084 : 6789 HRESHOLD; 1 COMPARE ERROR PRINT THRESHOLD 
14085 : 6790 ERRDF ASYNC, DUMPER) ERROR IF SET 
1 : 6791 PRINTB rive FMT, WRD_4, PAR 5, WRD_ 13° FNC_12, WRD_19); 
14087 : 679 PRINTB (FMT_12, .BAD-FUNC):~ 
14 : 679 end; 
14089 : 6794 
1? : ore? ENDSUB; 
(a 
14094 ; 6799 
16 5 ; 6800 ENDTST 
14 ~SBTTL $122 TEST CODE SECTION 
161 51 $722: JSR »SSAVES : 672 
14 1 a : BAD.BITS 6750 
141 1 1$: » 2 Re : *,BAD.BITS 6754 
141 1 ai. : *,CNT.2 6756 
14 1 2S: R4,R : BAD.BITS,* 6760 
4111 051 R2,R5 : CNT.2,* 
41 3$: ; 6757 
41 144172 #40 ant gREG+40 ; 6758 
161) a RO 
16 144154 #7 - Al .REG*40 
144 : *,BAD.FUNC 6760 
14 127 1466760 pC-EIR “FIRST BLK. XFER : 6761 
4} 7? 166 REG : BAD.FUNC,* 6762 
4} 444 b6000 144150 #1 AL -REG*6O ; 6764 


SEQ 0307 


kK 8&8 
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OPS 

A:< 
6768 
6770 
6772 
6773 
6774 
6770 
6779 
6781 
6782 
6783 
6779 
6786 
6788 
6790 


; BAD.FUNC,* 
e BAD.FUNC,* 
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C TEST MACRO M1115 30-MAR-82 11:18 PAGE bas 
CODE SECTION SE@ 0308 














TES 
141 :MLGAD -1 16:23: TOPS 
141 : TEST CODE SECTION 3 a a Fs 16; 1:08 te | 
141 1 -WORD 104 
141 1 -WORD ASYNC 
164185 Hi .WORD  DUMPE 
141 1 Moy WARD. : 6791 
1s 83 aes 
141 1610 MOV #PHR. 

141 i 6 MOV aFiv ‘ 

141590 1 MOV #6,~( 

14194 081 Trap ag te 

14195 051 MOV R3, (SP) : BAD.FUNC,* 6792 
14196 1 MOV #FAT.12,-(SP) 

141 1 MOV #2,-(SP5 

16198 1 MOV SP,RO : SP,* 

141 1 2 TRAP 

14 16 ADD #22,SP F 6788 
14 3 7$: TRAP 6 ; 6793 
14 1 s : 

14 51 JMP 

14 51 0 8$: #10,R2 : *,CNT.2 6756 
14 31 7 R271 : CNT.2,* 

14 17 JMP 2$ 

14 a4 9$: INC R1 : CNT.1 6752 
12511 Obt rie per st08"" —* 

14 31716 JMP 1$ 

14 5172 10$: RTS PC ; 6722 
14 : Routine Size: 165 words 

: Max imum stack depth per invocation: 15 words 

14 

14 

14 -SBTTL 122 TEST CODE SECTION 

14 517 4 T22:: 

1% 7 4 ibease 177262 1$: JSR PC,$T22 , : 6798 
14582 0817 000 ROR RG 


™ 


| n 8 

| CZMLADO ML=11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 326 

| T22 TEST CODE SECTION 

| 14 sML4AD 

| 16 ; TEST CODE SECTION 
14 51 10 BLO 1$ 

| 14840 031736 000207 RTS = wPC 
1426 : Routine Size: 6 words 
1? 4 > Maximum stack depth per invocation: 
1424 
14250 ; 6801 !<BLF/PAGE> 


0 words 


39-ma 


r-19 
r-19 


16:3 


SEQ 0309 
3:04 TOPS | 
1:03 PA:< 


ewe. ee ew 





eterna 





nN §& 
CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 327 | 
135 TEST CODE SECTION SEG 0310 | 
. 9-Mar-1982 16:23: TOPS=20 Bliss-16 V2(212) | 

16 ; - TEST CODE SECTION $3 nat 385 18:37:03 PA:<NEALE>ML4AD.BLI.4 (75) 

1838 g 

14 28 : 4 BGNTST; 

10 28 : 14 

14 60 : i TEST NUMBER: TST 23 

14 62 : 09 TEST NAME: REGISTER MODIFICATION REFUSED TEST 

16 es ; a i TEST DESCRIPTION: f 

14 66 ; i i TEST THE DETECTION OF A 

14267 : 6814 i REGISTER MODIFICATION REFUSED 

12508 ; a? BY: 

14 % : 7 i 1. WRITTING TO MLCS1. MLDA 

14271 : 18 | AND MLER WHILE THE DRIVE 

1oere 19 i IS BUSY AND TEST RMR 

14 o3 0 ; BIT SET. 

14275 : é i ALSO SEE IF THE DRIVE ASSERTED 

14 06 ; ; EXCEPTION BY TESTING THE TRE BIT SET. 

i mena 

14280 : re 7 incr CNT from 0 to 2 do | !REPEAT LOOP 3 TIMES 

14 a1 ¢. in : 

14 " : 9830 ate 1 = write; 'DO A WRITE FUNCTION | 

14 R¢ : 3835 case ted from 0 to 2 of ees ‘WRITE TO SELECTED REGISTERS FORCING RMR 

B/ : 5é se 

14589 as 03 : 

14290 : 583 MLCS1 = %0°000000'; 

14580 : a3 12; 

14098 5840 MLDA = ONES; 

4295 : +: (2) : | 

14598 7 MLER = ONES 

+44 19: tes; 

14 399 5846 DELAY (FRTY_US); 

14 01 : ¢: if .RMR IS_NOT_SET ‘SEE IF RMR GOT SET 

14302 ; : then 

14303 : 4: begin 

4304 : z. ERRDF (69, ASYNC, DUMPER): 13 IF NOT SET 

14 05 ; a PRINTB (FOR_FMT, WRD_21, PHR_1, WRD_11, uRD TD, 





mele) 
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ZMLADO ML-11 LOGIC T 
2 TEST CODE SECTION SEQ 0311 
14308 ;ML4AD r= 16:23: TOPS- iss-1 (212) 
14 09 ; TEST CODE SECTION Sonar 1963 18:37:03 eas» A SMLeAD BAG a os) 
14311 ; 54 
1 12 ; 55 if TRE 1S_NOT_SET 'SEE IF DRIVE ASSERTED EXCEPTION PY TESTING TRE 
an i 
14 16 : 36 PRINTB (FOR_FMT, WRD_20, PHR_1, WRD_11, WRD_21); 
14318 : . 
14 3 5 ENDSUB; 
1? 3! : end; 
1432 ; 6865 ENDTST; 
14327 -SBTTL $123 TEST CODE SECTION 
14331 051740 004167 132574 $723: JSR R1,$SAVE2 : 6800 
12338 051746 003005 ( CNT 7 
14334 051750 10440; 1$: 6898 
1433 051 1 0 163464 ; 
ite Sir gis 
y: 

14338 051 7 163446 
14339 08 77 Tasaee 
14340 052002 01 000061 143374 MOV a @ML REG : 1 
Fs 1 5012 010201 4g Reh 3; CNT,* reat 
14 § 05 ¢ 66 3 052020 ADD gS(R1) .PC 
14 : 20¢ , 00C ey. 23: -WORD 
1? ' aC f 900014 -WORD 4$- 
4 J ++ +44" 4 ‘ e WORD : 5$- 
1aee Genes 093007 143352 Ss: Rg Rec : 
16346 f 034 012777 177777 143372 48: MOV #-1, 9M .REG*30 

ime 4! ee i! 
14351 052044 177777 143412 5$: MOV . #1, @ML.REG+60 ; 
1? Be 4 000050 gs: ead 10 ; *,SSTMP2 
14354 052060 016701 130032 BOY LSDLY. RI ; *,SSTMPT 
4 ; 206 i 03 BEQ 
14356 052066 00501¢ 8% CLR (SP) : SSTMP 
16 7 052070 0053¢ DEC —._— aR} ; SSTMP1 
4 . ' 4! Jt BNE as 
° r Doct O7Gs 9$: +g 0 ; SSTMP2 
14361 ¢ 09 5 000004 143356 10$: #4,aML.R : 
ee! 0521 ft 024 BNE +f _ _ 


wwe ee 


WWOWN 
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SEQ 0312 


TEST CODE SECTION 


ML4AD 


w 





: RO = 
Se ae Nee Se} RN NAAARER 959.63 60 a 09 Ha SOR RAO RAS a ee 


ww 
LIIIIIIIz 
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: Routine Size 
; Maximum stack 
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is 


T23 TEST CODE SE SEQ 0313 
& fs 
5 767 177652 1$: JSR PC,$T23 : 6863 
TRAP 66 
ROR RO 
BLO 1$ 
20 RTS PC 


; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 


REREREPERERE 


6866 !<BLF/PAGE> 


eens a Re 
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8. SUM OF EACH PROM BIT SET 
<9,0> GIR 14. 


MLADO ML-11 LOGIC T 
3 TEST CODE SECTION SEQ 0314 
14441 :MLGAD r-1982 16:23:04  TOPS-20 Bliss-16 v2(212) 
1eee8 ; TEST CODE SECTION ae a ES 1833 703  PA:<NEALEDML4AD.BL1.4 (76) 
14444 ; 4 
14668 | BGNTST 
1464 + : : 
16448 144 
1644 ! TEST NUMBER: TST 26 
164 : TEST NAME : initial PROM TEST 
144 j : TEST DESCRIPTION: 
14455 i TEST THE MEMORY ARRAYS’ PROM 
144 i TIMING AND CONTROL LOGIC FOR 
1445 INITIAL PROM READS BY: 
12689 i 1. READING 14 PROM LOCATIONS 
AND TESTING FOR: 
Fl ; A. CHECK SUM ERRORS AT 
EACH ROW COLUMN ADRS 
f 
i 


local 
‘COUNTS EACH NIBBLE OFFSET 






CNT : vector (10, byteJ. 


eed meh et a ad et od 
gs 












Oo 
OOo 


EEEEES 


oO 





4478 : bi tvector C1 ‘SAVES ROW DATA OR'ED WITH COL DATA 
16473 bitvector [16], TEMP LOCATION FOR ROW COL DATA 
14475 1CHECK SUM DATA 
16476 i ‘CHECK SUM E 
144 : ‘COUNTS BAD NIBBLES 
16478 'COUNTS BAD NIBBLE POSITION EQL 14 
144 iDROP UNIT FLAG 
164 iERROR FLAG 
166 SHOLD; : 'CLEAR ERROR PRINT THRESHOLD 
144 6 = ZERO: 

1 DIS = ONE; 'SET PROM DISABLE MODE 

1 CHK_SUM_ERR = ZEROES: 





incr CNT from 0 fo y go 
OFF _SET_CNT C.CNTJ = ZEROES: 


incr a nal from 0 to 14 do 


n 
ORED COL = ZEROES; 
PROM_ADRS = .ADRS_CNT: 





‘CLEAR OFFSET COUNTS 7 


:READ PROM DATA FROM 15 ARRAY WORDS 


‘CLEAR ROW ORED COL SAVE LOCATION 
iGET COPY OF ADRS_CNT 





ee 


/*. 
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if .ROW_ORED_COL C. index] IS_SET then OFF_SET_CNT C.index] = -OFF _SET_CNT C.index} + 1; 


CZMLADO ML=11 LOGIC T 
+35 TEST CODE SECTION SEQ 0315 

14497 ;MLGAD r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
ret > TEST CODE SECTION 3 a la 16:57:03 PA:<NEALEDML4AD.BLI.% (76) 
14 Oo: incr TWICE from 0 to 1 do 'READ ROW AND COL DATA FOR THIS ARRAY WORD 

é n 
14 2 ; _NIB_CNT = ZEROES: 
14503 : ERR-FLG = ZERO; 
14504 : MLPA = PROM ADRS: 'LOADING MLPA INITIATES PROM READ 
14505 : DELAY (ONE_US); 
6 ; R_C_SAV = -MLPD: 'GET THE ROW OR COL DATA 
14 : incr BIT_CNT from 0 to 9 do 'COUNT NUMBER BITS SET IN <9:0> 
16 19 : if -R_C_SAV C.BIT_CNT] IS_SET then BAD_NIB_CNT = .BAD_NIB_CNT + 1; 
i : CHK_SUM = .R_C_SAV<10, 3>:; 'GET THE CHECK SUM BITS 
16 1 : if .R_C_SAV [13] IS_SET then CHK_SUM = .CHK_SUM +1; !ADD IN BIT 13 
14816 : if .R_C_SAV [14] IS_SET then CHK_SUM = .CHK_SUM +1:  'ADD IN BIT 14 
16 18 : if .R_C_SAV [15] IS_SET then CHK_SUM = .CHK_SUM +1; 'ADD IN BIT 15 
16 - if R_C_SAV [15] IS_SET ‘3S BIT 15 SET 
He 7 
14 4 : if .BAD_)..8_CNT Lss .CHK_SUM then ERR_FLG = ONE; | !SET ERROR FLG IF CHECK SUM ERROR 
14526 : 
14527 : else 
i? : begin 
16 : if .BAD_NIB_CNT neq .CHK_SUM then ERR_FLG = ONE; | 'SET ERROR FLG IF CHECK SUM ERROR 
1? : end; 1 
16 : if -ERR_FLG 1S_SET 'WAS THERE A CHECK SUM ERROR 
14536 : in; ‘REPORT INTERMEDIATE ERROR IF YES 
16 : : 'COMPARE ERROR PRINT THRESHOLD 
4538 ; ERRDF (70, INTER, DUNE 
14539 ; PRINTS (SIX_FMT, FNC_21, URD_10, WRD_12, WRD_45, WRD_35, FNC_6): 
14540 : PRINTS (FMT-10, .CHK-SUM, .R7C_SAV); 
16 : DODU_FLG = ONE: 
14543 : . 
14544 : ROW ORED COL = (.ROW ORED_COL) or (.R_C_SAV): !OR ROW AND COLUMN DATA 
14545 : PRORLADRS = (.PROM_ADRS) Gr (Z0'2000'3:7'GET COLUMN DATA 

: incr index from 0 to 9 do 'GET TOTAL OFF SET COUNTS FROM THE 15 ARRAY WORDS 





th web ny ed cd end 
PPPROPE 


— re eee 


aaa eT eee 
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Se nein —— 













cz ML-11 LOGIC TEST 
T23 TEST CODE SECTION SEQ 0316 

14553 :ML4AD r-1982 16:23: TOPS=20 Bliss-16 V2(212) 

14 ; TEST CODE SECTION sonar 1385 18:53:98 PA:<NEALE>ML4AD.BLI.4 (70) 

14556 : 6971 end: 

14 s ore | 

14 ; 6973 CNT_14_BAD = ZEROES: 

14 « : 6973 incr CNT from 0 to 9 do !COUNT HOW MANY OFFSET COUNTS GEQ 14 | 

14868 : oars if .OFF_SET_CNT C.CNT] geq 14 then CNT_14_BAD = .CNT_14_BAD ¢ 1; 

14564 : 6379 f -CNT_16_BAD neq ZERO ‘WAS ANY OFF_SET COUNTS GTR ZERO 

14566 : 6981 i 

14867 : 6 a My (71, ARR_DAT, DUMPER);: ‘ERROR IF YES 

145 ° : : 4 if .CNT_14_BAD eql 10 ‘WERE ALL 10 NIBBLE OFFSETS GEQ 14 

14571 : 6 PRINTB (SIX_FMT, WRD_55, WRD_54, WRD_46, WRD_51, WRD 42, WRD 40) ‘ERROR IF YES 

14578 : 6 7 else 'IF RO THEN PRINT WHICH ONES WERE 

P} n 

16874 : 6 PRINTB (FOR_FMT, WRD_46, WRD_47, WRD_42, WRD_40): ‘PRINT MESSAGE 

14876 : 6991 incr CNT from 0 to 9 do ‘FIND OFFSETS GEQ 14 

14578 : 6995 if .OFF_SET_CNT C.CNT] geq 14 then PRINTB (FMT_13, .CNT, (.OFF_SET_CNT C.CNT)): 

14580 : 6995 'PRINT NIBBLE POSITION AND COUNT 

14581 ; coe end; 

14582 : 699 

14 g oe DODU_FLG = ONE; 

\e3 : : end: . 

14586 : 7001 if .DODU_FLG IS_SET !DROP THIS UNIT IF DODU_FLG SET 

14 : 7 ¢ then 

14 : in 

14 : (.ML_LUN); 

14 : 5 DOCLN; 

12 91 ; end; 

14 § : ENDTST: 

14 -SBTTL $124 TEST CODE SECTION 

1 7 , 4 10 $724: JSR R1.$SAVE5 : 6865 

1 i SUB #30, SP 

1 067 CLR CNT ; 690 

i 0 143124 8158 #4 GML -REG*40 : 690 

1 4 4 703 17 BIC mi BUT RS 


en aS 


eee oe ee - 


Rm 


2a 
S 


a 


-o 


46 


1 
1 
1 
1 
1 
1 
1 





CE EEEES. 


xn 
2 OOD NIA UAE Win 


ed ed ed ed ed eed 






> oe 


14638 
1634 
164626 
14625 
14630 
146 
146 
146 
146 
14635 
14636 
146 
14638 
14635 
re rd: 
1h 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

7 

1 

1 

1 

1 
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sMLGAD 
7 1631 
1431 3 es 
boob. 143150 
000016 1$: 
000011 
000008 - 
000004 3$: 
600006 143054 
127454 see 
000014 5$: 
6$: 
143150 000012 /7$: 
8$: 
000012 
177770 
000001 
13110 
000016 
O$ 
000011 : 
000012 






SnSeSSSoR Recs eRe 


Bye 
$5 








TEST CODE SECTION 


#7 QML .REG+40 
R5 ,@ML .REG+40 


#60 ,aML .REG+120 
#16,R1 
1 






R2,411 
all oR3 
R 





—_—_ --—_.. __ — 
——— ee — a = 
-- A ect tt 


SEQ 0317 


39-mar=1969 16:91:08 


DODU.FLG 
CHK. SUM.ERR 


; OFF .SET.CNT,* 
CNT ,* 


PROM. ADRS, * 
* , $STMP2 


« ,SSTMP1 


BIT.CNT,* 


R.C.SAV,* 


BIT.CNT,* 


-NIB.CNT 
CNT 
a CNT ro & 


TOPS 
PA:< 


6907 | 
6908 


6909 
6912 


6927 


6931 


a eereeeeeaieeeetineenieteietensemeemeemes Se rere 





eee eres eesessassesesstesensssnstnteneensneeensnnrenereereeerereee- cs... 
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SEQ 0318 
ML4AD “1982 16:23: T 
: - TEST CODE SECTION i ea 16: 1:03 Pate 
1 '? ASR > CHK. SUM 
1 152560 SWAB : CHK. 
1 05257¢ BIC § #177770,R3 : CR SUM | 
1 05057 000013 BITB #40,13<SP) 3 *,R.C.SAV#1 6933 | 
12678 O85e64 inc OR CHK. SUM 
05.2606 000013 108: BITB #100, 13(sP) > #,R.C.SAVET 6935 
14676 052616 INC = RB ; CHK. SUM 
146 + 4' 11$: CLR Re e 6937 
1680 98865 inc CHK. SUM 
vag Y + : ° 
146¢ ' 6: 12$: ROR R > 6939 
14685 089636 | 1030% Bcc é : 
if 564 30 CMe «4 SP) RS ; BAD.NIB.CNT,CHK. SUM 6943 
ys + 
146 ' KL é RE 
14 i 3 660! 000004 138: CN 4S) ,RS ; BAD.NIB. CNT, CHK. SUM 6949 
" + '% ’ 
14689 052656 012716 000001 14$: MOV  4#1,(SP) : *, ERR. 
$90 05 66. 100001 15$: cH ¢SB) fl : ERR FLOSS 6953 
s 'P . “8 
14692 05267( 2 INC — PL CNT : 
1469: 152674 02 4 142676 CMP LIMIT | —_ 
14¢ if Af BGT L 
' 393 f > TRAP 706 : 6957 
14697 05271( “WORD 
14698 05971 “WORD  DUMPER 
14699 0527 26 MOV —- #FNC.6,~(SP) : 6958 
14700 05272¢ MOV #URD. 2-~(SP} | 
14701 08 4 MOV  #WRD.45.-(SP) 
14702 05875 MOV #URD. 12 ~(SP) 
14703 0! MOV © #WRD.10,-(SP) 
4, 'p '" , MOV #FNC.21 ™ SP) 
4705 050744 MOV #SIX_ FRE .~(SP) 
i 707 059754 ROY SPSRO SP, 
4708 05275¢ TRAP 14° . ae 
14709 o5876¢ $ 000032 ROY — 58(SP) (SP) ; R.C.SAV.® 6959 
; f¢ ° wD M * o* 
1671 766 : 007116 MOV «#FAT.30.-(SP) 
12718 9857 i MOY 7 a SP 
: - a e o* 
ter 05 300¢ TRAP 16 
1601 05 300¢ 1 000030 . mov #1 ,30(SP) ; *,DODU.FLG oe 
e719 53¢ 900010 16$: BIS 12(SP) ,10(SP) ; R.C.SAV,ROW.ORED. COL 696 
16018 ( C BIS 6 : *,PROM.AD 6964 
14719 05303¢ INC : TWICE 6919 











er 


EL Eee ~— ee 


ELE —_—- 








Ee — 


“tM 












’ 
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24 TEST CODE SECTION SEQ 0319 
14 ML4AD r=1982 16:23:04 TOPS 
12 : TEST CODE SECTION o3-marn1985 16:21:03 PA:< 
14724 053032 020427 000001 CMP R4 #1 ; TWICE,* | 
147 tp C > Of 1s; BGT 17$ | 
14726 053040 000167 177350 JMP 3 | 
14727 053044 OC N02 17$: CLR Re ; INDEX 6967 | 
14788 053046 01020 188: MOV Re, RI ; INDEX,* 6965 
147 y 2 ++. ' JUC 201 ASR R1 
14730 053052 006201 ASR eR 
14731 053054 006201 ASR RI 
14732 053056 012700 000010 MOV =: #10, RO | 
14733 053062 06060¢ ADD — SP..RO ; ROW.ORED.COL,* 
14734 053064 060001 ADD _— RO.R1 
1a S300 Sis my oe, 
14737 053072 042716 177770 BIC = #177770,(SP) 
14738 053076 012746 000001 MOV = ss #1, = (SPJ 
14739 053102 005046 CLR =—s« = (SP) 
16740 953104 0C 130524 JSR = PC, BL$GT2 
14741 053110 062706 000010 ADD =_- #10, SP 
16769 053114 0 DEC. 
14743 053116 001005 BNE 
14744 953120 012701 000016 MOV 8 =s-s« #161 
14745 053124 060601 ADD RI ; OFF.SET.CNT,* 
146746 053126 060201 ADD R2.R1 ; INDEX,* 
14747 0531 05211 INCB ss (RI) | 
16748 953132 005 de 19$: INC R ; INDEX 6967 
14749 ¢ 13 32082 000011 CN RGA : INDEX,* 

4 U 8 
14751 053142 OC 5 e ; ADRS.CNT 6914 
147 ! 2( 000016 R5 #16 ; ADRS.CNT,* 
14754 053152 06 167 177226 
14755 053156 005000 20S: ; CNT.14.BAD 6973 
14/56 053160 005¢ 1 ; CNT 6975 
14757 053162 ¢ 000016 218: #16,.R2 ; 6977 
14758 053166 061 SF Re ; OFF.SET.CNT,* 
14 953170 06C R1,R : CNT,* 
14760 ( 7 000016 (R2) #16 
167 05320 ; CNT.14.BAD 

' VU " e e ‘ 
4763 053202 228: R1 : CNT 6975 
i 206 8 000011 RI sf" ; CNT,* 
ie f 212 005706 RO. | 7 ; CNT.14.BAD 6979 
14767 053214 0015¢ 
14768 053216 1¢ 5 : 6982 
14769 053220 00¢ 0 107 
ir) Wbaees aa ay 
>} 033¢ 0200¢ 7 000012 ; CNT.14.BAD,* 6984 | 
14774 053234 ( 1115 #URD.40,-(SP) ; 6986 | 
14775 053240 313 ig O11170 #URD.42,~(SP) 








14777 
12999 

1a 95888 
14 . 
14 > ay 
14 +: 
14 5270 
14 5274 
16 La76 
14 C 
14 i 
4 


> ' 
tt ed ct 
SRSERS 





4 

2796 083 

1999 Oeseee 

4 r 

4 
501 
802 0: : 
7; . 
+4 is 
RO hf 
807 05336 
“Y,7 


= 7. 
ss > 7. 


={= 


NOUSW—OC 








mut om 22 «od oe) 


+ 
¥ 
+ 
+ 
+ 
+ 





= 
nD 
WN =P 


AAO 
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MACRO M1113 30-MAR-82 11:18 PAGE 537° 


000016 
000001 


sML4AD 


23$: 


24$: 


25$: 


26$: 
273: 





28S: 


; Routine Size: 


TEST CODE 


SECTION 


#URD.51,-(SP) 
#URD .46,-(SP) 
#URD .54,-(SP) 


14 
(SP)+,(SP)+ 
#URD.40,-(SP) 


ro re bh 
MWRD 






nice 
(SP) .41 
8$ 

- bata 
44 

#30.SP 

PC 


312 word 


>: Maximum stack depth per 


P) 


g 
invocation: 


29 words 


Eee — 
- —— ee -_ 


; SP,* 


SP,* 
CNT 


OFF ..SET.CNT,* 
CNT,* 


CNT,* 


SP,* 


CNT 
CNT ,* 
* ,DODU.FLG 


¢ DODU.FLG,* 


16:23:04 
16:21:03 


SEQ 0320 


TOPS 
PA:< 


6984 
6989 


LL ee - - 





‘ TEST MACRO M1113 S0-MAR-82 11:18 PAGE 39° 
ION SEQ 0321 





1 
} 33 1263: -SBTTL T2464 TEST CODE SECTION 

1 767 176614 1$: ; 

14845 66 $ ll PC «$124 ; 7006 
1 ROR RO 

7 BLO 1$ 

} 20 RTS PC 

1 : Routine Size: 6 words 

! 1 ; Maximum stack depth per invocation: 0 words 

1485 

14858 ; 7009 !<BLF/PAGE> 


EE SE a ee 
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ie: tart tee tfon SEQ 0322 
r-1982 16:23:04 TOPS-20 Bliss-16 vesteD,. 
148 $ — TEST CODE SECTION 3 a las 16:21:03 | PA:<NEALEDML4AD.BLI.4 (77 
1486 
a3: 7010 ! 
or 7011 BGntTST: 
12Beg : 7018 mes ‘ 
14868 7015 { TEST NUMBER: TST 25 
148 70 : , i3 i TEST NAME: | PROM OR FUNCTION TEST 
: i 
1 i : 7018 i TEST DESCRIPTION: 
14873 : i 
14874 : 7021 | TEST THE HARDWARE ORING OF 
° Y ARRAYS’ PROM 
i: le) RS 
14878 ; 7 5 | 1. READING AND STORING 128 
146 : Ds$ i 
1 380 ; a DATA. 
14881 : 
82 : ‘ N PROM DISABLE MODE 
1 B83 : 7 i . sD vA SOF TWARE CONTROL, 
e 4 
14885 132 COLUMN DATA AND COMPARE 
14886 : 7 ¢ i AGAINST THE RESPECTIVE 
14887 : 7 i STORED HARDWARE ORED DATA. 
one 
14890 ; 7037 
14882 : 70 manne BITS ‘PROM ROW DATA 
" P+ = e 
12800; r8as So aneb SOFTWARE CALCULATED PROM ORED DATA 
14895 $043 HU” SAVE, 'SOFTWARE PROM ORED DATA | 
14896 : 7048 DOBU_FLG: iDROP UNIT FLAG 
14897 : 
R98 : 7045 BGNSUB; 
ai 9 : ict CLR THRESHOLD; 'CLEAR ERROR PRINT THRESHOLD 
148 : g 3 FLG" = ZERO; 
14S : . 
a SS Madre ARG > 
1 506 ; 7 38 iner PROM. ADRS from 0 to 127 do 'READ AND STORE 128 HARDWARE PROM ORED DATA 
14S s 
14908 : DE AY (ONE_US); — 
14909 : OR_TBL I. [PROM _ADRS] = .MLPD; READ HARDWARE _ PROM ORED 
14910 : Dat c[k = 
1491 : end? 
14 : . 
: CLR_MBUS: 
1497 : PROM_DIS = ONE: ‘SET PROM DISABLE MODE 




























Nn 9 
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T24 TEST CODE SECTION SEQ 0323 — 
14916 ;ML4AD r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
14917 : TEST CODE SECTION a aa ts 183573598 PA:<NEALE>ML4AD.BLI.4 (77) | 
1 $ 7 
i ; 7088 iner PROM _ADRS from 0 to 127 do !CALCULATE 128 SW ORED DATA & COMPARE TO HW TABLE 
1 : 7065 A = .PROM_ADRS: !LOADING MLPA INITIATES A PROM READ 
1 : 7 DELAY (ONE US): 
1 : 7 BITS = .ALPD: ‘SAVE ROW DATA 
1 : 7 A = .PROM_ADRS or %0°2000': | ‘ENABLE COLUMN DATA ADRS 
1 : 7069 DELAY (ONE_US);: 
1 : 7070 C BITS =. ; 'SAVE COL DATA 
1 : 7071 | SQ_ORED = .R_BITS or .C BITS: ‘CALCULATE SOFTWARE ORED 
1 : 207 HW_SAVE = .H@_OR_TBL C£.PROM_ADRS): 'GET RESPECTIVE HARDWARE ORED 
i $ Dee i f (.HW_SAVE<O, 9>) neq (.SW_ORED<0, 9>) 'COMPARE SW & HW ORED 
e en 
1 : 707 'IF NEQ THEN ERROR 
1 ; 707 SHOLD: 'COMPARE ERROR PRINT THRESHOLD 
1 : 7078 ARR DUMPER) : 
1 : 7079 | _FMT, WRD_35, WRD_36, WRD_19, PHR 4): 
1 : 7 PRINTB (FMT 2, .SW_ORED<O, 95, .HW_SAVE<O, 95, (.SW_ORED<O, 9> xor -HW_SAVE<O, 9>)); 
1 : 7081 DODU_FLG = ONE: | , 
1 ; 7082 end: 
1 : 708 
1 : 7 end; 
1 : 7085 
: : rae ENDSUB: | 
1 : 7 if .DODU_FLG IS_SET | | !DROP THIS UNIT IF DODU FLG IS_SET 
Pt ae : 7 then 
14947 ; 7 begin 3 
14948 : 7091 U (.ML_LUND; 
14949 : 709@ DOCLN: 
14950 ; 485, : 
iy ; 7 
16 : 7095 ENDTST: 
14 eSBTTL $125 TEST CODE SECTION 
14 53472 167 131114 $725: JSR R1,$SAVE5 : 7008 
14 7 903 000010 #160,SP 
14 1044 1$ 2 ‘a 7045 
16 967 141 : 7045 
4 141726 ; 7046 
i 1 708 14 1 
4 4 141710 
14 180597 $44 906 
14 0 005016 : DODU.FLG 7048 
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$125 TEST C TI 












































ODE SECTION SEQ 0324 — 
: r=1 16:23:04 TOPS | 
14378 ‘aaa TEST CODE SECTION 33-mer= 1985 16:21:03 PA:< 
146975 08 15 900010 141756 £10-2ML -REG*120 7049 
tah Rous eset BRT che eerie 7 cs 
/. ¢ © 
' JL R4 ° ADRS 7053 
1438 iS ' $3: anh ° * , SSTMP2 7055 
145 Be ‘it LSDLY.RS ; *,SSTMPI 
12984 00! 4S: g¢sp) : $STMP 
1498! D¢ Re ; SSTMP1 
16 987 if 5$: RS ; SSTMP2 
14985 1104( 6$: RG RS ; PROM.ADRS,* 7056 
+4 
76 14 01340 -REG+230,HW.OR. TBL (RS) 
1499 000020 \4i6e3 #20-aML -REGS120 = 7057 
14998 000177 R4 4177 ; PROM.ADRS,* 
16 796 000040 141564 -REG+40 7058 
14998 17 2 
1500 Ranma SAL “REGSCO 
151 000065 141614 a ities re) 
} 41 7$: R3. QML .REG+100 ; PROM.ADRS,* ? 
F ih nz : ee re 
3 126166 : LSDLY RS ; *,SSTMPI 
0 000006 98: 6(SP) : SSTMP 
5C DEC RS : SSTMPI 
¢ oe: ee ; SSTMP2 
0 141662 000004 11S: -REG+230,4(SP) ; *,R.BITS 7067 
iC sie Rov nS a wi ; PROM.ADRS,* 7068 
0 RS aml REG+100 
15 ia io mov cy - ; *,SSTMP2 7069 
1015 126116 Moy LL SDLY.RS ; *,SSTMPI 
{ 000006 138: (SP) ; SSTMP 
{ “ DEC Re. : SSTMPI 
13 “- - &€ ; SSTMP2 
15¢ 141612 000002 15$: MOV § aML.REG+230,2(sP) ; *,C.BITS 7070 


renee eens . 
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sML4AD 
3 TEST CODE SECTION 
TRAP 51 
TRAP 44 
19$: ADD #10.SP 
RTS PC 
; Routine Size: 191 words 


: Maximum stack depth per invocation: 20 words 


-SBTTL T25 TEST CODE SECTION 


T25:: 
1$: JSR . PC,$T25 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 
; Routine Size: 6 words 


> Maximum stack depth per invocation: 


! <BLF /PAGE> 


0 words 


SEQ 0326 
04  ‘ToPS 
03 PA:< 

7008 
7093 


: 


Nm 


Ww 
m 
wo 


ad 2d ed reed 


SELEREUNSSVRVOY 


ed ed 


PA 


—! 


wi“ 


SaReesEs 


™~ 
_ 


ViMuw 


ee ony 
> | 


od ed ed eed eed 
Bete Ge Ge Se Ge Se Se Se Ge Ge ee 


hp~berbardundendendunhetendepcheteeakeat Le ee ee 
& 

mn ond cond con end wed ee eed and od 

WONOULWIN oO 


MAMA 


> i i i i i ee 
UW 


= ed ed ed ced ceed ed eed ced eed ee eed ned eee ened ech ceed ceed eed ee 


MUMIA 


a ed ed ee ee ed ed ed ed ed eed eed ee eed ee ee eed eed ee ed ees ee ed ee 


AISSELEALATLS 


SBNOAE ON 


wl eh rth cel cel el cl el cal lt lly lt cael cel cl cl cel cel el el cel cel el cen ce meld eel een 


WIMNMMAMMaAMIAMIMIAMILAAUALAUn 


ed ed eed eed eed eed ed ed ond ed nd 
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TEST CODE SECTION ri 
' 

: 

BGNTST; 


§o4¢ 
: TEST NUMBER: TST 26 

: TEST NAME: UV ADRS ERROR TEST 

: TEST DESCRIPTION: 

i TEST THE DETECTION OF UV ADRS 
ERRORS BY: 

; 

: 

‘ 


1. 









GENERATING eaaoaee PATTERN 
FROM 0 TO %0°1 7* AND 
DETERMINE WHETHER RESPECTIVE 
PATTERN IS GOOD/OR BAD 

PROM DATA. 





VIA_DAT_DM AND PROM R/W 
MODES PRESENT GENERATED 
PROM DATA TO THE UV ADRS 
ERR PROM 






TEST ERROR CONDITIONS FOR 
CORRECT RESPONCE TO GOOD/ 
OR BAD PROM DATA. 





local 

HIGH_CNT, ‘STORES PROM DATA CHECK SUM BITS 
PROM_DATA : bitvector [16]. ‘STORES PROM DATA 

LOw CNT, ‘STORES SUM OF PROM DATA BITS <9:0> 
TEMP fe ay STORAGE 


: G 
‘SETS WHEN PROM DATA BIT 15 IS A ONE 
‘CLEAR ERROR PRINT THRESHOLD 





‘TEST ALL POSSIBLE PROM DATA COMBINATIONS 
‘ INCREMENT PROM_DATA 





eee ee 


eed ed ed ee ed 
MAM 
lt eh, el eth ee lh ee cee eel ceed eal mcd at 
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LELRES 






Ww 
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pp Paha > pp 
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SQV 


GES 
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SEQ 0328 


39-Rar=-1968 16:91:03 PATchEALESMLEAD BLT 


‘COUNT PROM DATA BITS <9:0> 


TEST CODE SECTION 78) 

incr BIT_CNT from 0 to 9 do 
if .PROM_DATA C.BIT_CNT] IS_SET then LOW_CNT = .LOW_CNT + 1; 

HIGH_CNT = .PROM_DATA<10, 3>; :GET PROM DATA CHECK SUM BITS 

if .PROM_DATA [13] IS_SET then HIGH_CNT = .HIGH_CNT + 1; ‘ADD IN BIT 13 IF SET 

if .PROM_DATA [14] IS_SET then HIGH_CNT = .HIGH_CNT + 1; ‘ADD IN BIT 14 IF SET 

if .PROM_DATA £15] IS_SET then HIGH_CNT = .HIGH_CNT + 1; ‘ADD IN BIT 15 IF SET 


' 
| 
if .PROM_DATA [15] IS_SET then GTR_FLG = ONE; ‘SET FLAG IF BIT 15 IS SET 





DAT Dm MFER ();: ‘SET UP A DATA DIAG MODE XFERR 
RO = ONE; ‘SET PROM READ WRIT 

MLPD-= .PROM_DATA: ‘LOAD MLPD WITH PROM DATA 
MLCS1 = write: 'DO A WRITE FUNCTION” 

DAT_CLK = ONE: 'CLOCK PROM DATA INTO UV PROM 





yO aes IS_SET ‘SEE IF PROM DATA CAUSED A UV ERROR 
begin 


tf -GIR_FLG IS_SET ‘UNS IS_SET. SEE IF GTR FLG IS SET 


in 
TEMP = .PROM_DATA: ‘LOAD TEMP WITH PROM DATA 
TEMP = .TEMP and %0'162000': ‘SEE IF THESE BITS ARE SET IN PROM DATA 
if .TEMP eql %0°162000° 
then 

begin 


if .LOWLCNT geq .HIGH_CNT 
ini ‘LOW<9:0> SHOULD BE ISS THAN THE HIGH<15:10> IF GIR FLG IS SET 


in ‘ERROR IF LOW<9:0> IS GEQ HIGH<15:10> 
T : ‘COMPARE ERROR PRINT THRESHOLD 

ERRDF (72, ARR DAT : 
F 


R) 
PRINTS (Six FMT, uko” Se PHA, WRD_32, WRD_6, WRD_33, WRD_24); 
ERR_FLG = ORE: 


‘THESE BITS SET AUTOMATICALLY CAUSE A UNS 








end; 


else ‘GTR FLG IS NOT SET 


begin 


if -LOW_CNT eqt .HIGH_CNT 'LOW<9:0> SHOULD BE NEQ HIGH<15:10> 


Se ee eee Ee tenene 


OO 








11 LOG 
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CeELADO AL- ¢ TEST MACRO M1113 3O-MAR-82 11:18 PAGE B46 
T2S TEST CODE SECTION 


SEQ 0329 


thee 

































7 ;MLGAD 16:23: TOPS-20 Bliss-16 v2(212) 
i 3 : TEST CODE SECTION Sonar -toes 16: 1303 PA: wm A OT ASS oo8) 
1354) 7303 Cee T aa ERROR PRINT THRESHOLD 
13 4¢ ; 7508 RADE (73, ARR_DAT ep IPED): 
15243 : 72 PRINTS Sixt EAT. - WRD_32, WRD_6, WRD_33, WRD_24); 
15246 ; 7205 ERR_F 
1 45 3 72C . e 
1 re : 720 
| an i, ms ws WaT 1 

: é& s oe 
i i a 
1 : 7214 if .GTR_FLG IS_SET 'SEE IF GTR F T 
i + a if. GTR FLG IS_SE 
P} n 

1 : 721 TEMP = .PROM_DATA: ‘LOAD TEMP WITH PROM DAT 
3 g 18 TEMP = .TEMP-and %0'162000': iSEE IF THESE BITS ARE ST IN PROM DATA 
3 ; } f if f TEMP neq %0'162000' !IF THESE BITS ARE SET THEN UNS SHOULD BE SET 
15261 : 7 ‘ERROR UNS IS NOT SET 
1526¢ ; 7 : "begin THRE SHOLD ‘COMPARE ERROR PRINT THRESHOLD 
15263 ; 7226 ERRDF ARR_DAT Oyen), 
15264 ; 7225 PRINTS “(SIX FAT. UaD - WRD_32, WRD_S, WRD_33, WRD_24); 
: 265 $ g : ERR_FLG = ORE: 
15267 ; 7. else ‘BITS 162000 ARE NOT SET 
; + f begin . 
! re 3 ¢ 1 if -LOW_ CNT lss .HIGH_CNT 'LOW<9:0> SHOULD BE GEQ HIGH<15:10> 
1 : 7 , ‘ERROR IF LSS 
iS ; ¢ s i COMPARE ERROR PRINT THRESHOLD 
; ¢ ee PHA, WRD_32, WRD_5, WRD_33, WRD_24); 
1 : 7 
ig : is? 

ry 3 
: tf ; : ‘} end 
152 E : 7 “8 else 'GTR_FLG IS NOT SET 
13984 as — 
I3et ; get if. -LOW_CNT neq .HIGH_CNT 'LOW<9:0> SHOULD EQL HIGH<15:10> 
150 : 48 begin ‘ERROR IF NEO 
13e B 4 CAP THRESHOLD Di ae 'COMPARE ERROR PRINT THRESHOLD 
152% : 7 9 PRINTB (SIX FMT, WRD_ gal + att PHR’ 1, WRD_32, WRD_5, WRD_33, WRD_24); 
15291 ; 7 ERR_FLG = ONE: 


ee OEE SE A me 


=~ 


Ee - 





i Ee _-. 


H 10 
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5 SEQ 0330 
15293 : r-1982 16:23: TOPS=20 Bliss-16 V2(212) 

% ; TEST CODE SECTION omar -13 18:37:08 PA:<NEALE>ML4AD.BL1.4 (78) 

15296 : 7253 end 

i 8 : , 3 end | 
} 100 ; ; end; | 
i 0¢ ; 4 33 if -ERRFLG IS_SET 'SEE IF ERROR FLG GOT SET 

15304 : 7261 i !PRINT FAILING PROM_DATA AND SET DODU FLG 

15305 ; 7 62 + om (FMT_7, .PROM_DATA); 7 

15306 $ 726 end; 

iF 107 ; 7264 

15308 ; 7265 ENDSUB: 

15309 ; 7 66 end 

3 10 : , 67 until .PROM_DATA eql %0'177777': 'TRY ALL BIT COMBINATIONS 

15 iF : 7269 ENDTST: 

15 4 54 130302 $726: jer a1 -SsAtbee Saree 7095 
13328 084 10 000010 : #10,SP ' 
153< 14 141 36 P.CNT : 7134 
13324 54 a9) 000006 #-1,6(SP) : *,PROM.DATA 7137 
13325 34 000006 1$: 6(SP) : PROM. DATA 7141 
15327 000040 141102 #40, @ML.REG+40 : 7142 
15328 1414 TRS 

15325 177770 #177770,R5 

1533C 34 000007 141064 47 QML .REG+4 

15 ij 141060 R5,aML .REG+4 

15 54 R1 : ERR.FLG 7144 
leeer G2 — _ ; HIGHCONT Fide 
1 5437 000004 : GTR.FLG 

15336 RS > BIT.CNT 7149 
: 3$: R5.Ré > BIT.CNT,* 7151 
15339 R4 

1534( R4 

15341 1 000006 #6, 

1 SP. : PROM.DATA,* 

1 R3,R4 

i é Re’ -tsp) ; BIT.CNT.* 

1 4 177770 #1 $7730 (SP) : ares 

1 44 000001 #1,=(SP5 





~~ 
g 
Sew 
Pee Sete ee 
me 
wD 
~™ 
ek 
& 
~ 
SSS ssssssnsstehtsusateassnememenssenes 





ta — ee 
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$T26 TEST CODE SECTION SEQ 0331 












15349 sMLSAD 1 16:23: T 

: TEST CODE SECTION r=1982 16:91:08 Pace 

1 oC CLR ss = SP) 

13388 054440 004 69 3 7170 JSR PC, BLSGT2 

1 08 062706 000070 ADD = #10, 

1 tp , OC 4 DEC : 

15356 054452 0010 BNE 4$ 

1 b 005266 000002 INC =—s_-2¢ SP) ; LOW. CNT 

1 154466 205¢¢ 4$: INC 5 : BIT.CNT 7149 

} bashbe 020327 000011 ce R311 ; BIT.CNT,* 

15361 054470 016602 000006 MOV  6(SP).R2 ; PROM.DATA,HIGH. CNT 7153 

1 ; " ): 00620¢ ASR é HI GH. CNT 

1386¢ 986508 S098 ie : Mt ea 

15365 08 942702 177770 BIC -#177770,R2 > *, HIGH. CNT 

13366 0% 132766 000040 000007 site #40.7(SP) ; *,PROM.DATA+1 7155 

15368 ( 00520 INC = R22 ; HIGH. CNT 

19368 08 2766 000100 000007 5S: BIB #100,7(SP) S *,PROM.DATAS | 7157 

15371 05 205202 INC =o ; HIGH. CNT 

1 , OC 6S: CLR =o : 7159 

1 | 95766 000007 TST = 7( SP) ; PROM.DATA+1 

1 ‘ 1000 BPL 7$ 

1 9052 INC =—s_ BS 

1 D- 052 INC R ; HIGH.CNT 

1 00600 7$: ROR =o ; 7161 

1 (8 ¢ S00 BCC as 

13379 ( 912766 000001 000004 - nov 1 ; *,GTR.FLG _ 

15381 ( oF bbs 140732 —i(‘itéiSY SB ; 7164 

1m Gases shee BS) tages ! re 

86 0546 3 ir 120640 BIT ; 7169 

1 88 054608 926627 000004 000001 cmp ; GTR.FLG,* 7173 
4°3 4 . 18 « 

1 x4! Sy , ’ MOV e 717 
91 054640 042716 015777 BIC ; 7179 

i 0546 0g + 763000 oe ; 7179 

1 Ly ' 5h iF ¥4¢ 000002 CMP e LOW. CNT HI GH a CNT ‘ 71 83 

1 re ’ 4 90200 BGE 

13397 See, n03¢6 120806 108: INC PENT 7186 

12398 054¢ 926767 14 305 140502 cap P CNT LIMIT : 

15400 054700 10445 TRAP 55 : 7188 

15401 054702 00011 -WORD 110 

15402 054704 01301 -WORD ARR.DAT 

15403 054706 0263¢ -WORD  DUMPER 
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SEQ 0332 


Soomar-1963 10:53 505 


TOPS 
PA:< 


TEST CODE SECTION 


sMLSAD 


PE GE 





eee ee 


7189 
90 
199 
7201 
203 
7204 
5 
7214 
a 
7520 
7222 
7224 
7225 









2 
i) 
5 
eh 
=z & 
& ® 
hm oO 
oe = 
w Bate 
e 3 “ a 
oy 
om 
a o a 
*e *e ee *®e oy Le 7 ee ee %e &*e *e *e 2 & 
~ ~ om 
~ 
Bae hese . mee 38 = ana he eS 
ee Uwe Yee § — uw Uw Uwe § 6. toned www Uwe § 
oom tinwt _s = net eat hatte oe = 8 ewews 
siinivee  & 5 na feos! Sock 3 sem wee 
RUM OMAN a OF . ry Nai * <c& mw 
*eeee wo “ aa se 2 a oe an Se a es xan 
$335% Sect -ghasetee: ae2? snencinoebee 
a0. Rar dtwae we 38s acme 


Sac 8 
Borate oo 
at? 


SESSEESEEi abuts? SS Seepseeseae tuscecees?=esecessces 








ae ASSO ARARAR RAE eh Stace Sae RRR RRP IG 


™ - RAB RRARA te = NRRRARAAR 











EREERER ER RR ERE RE RE PES EES 


Ee EEK RK Ke KK ee Kee eee 











-——-—_ -——.... — 


SEQ 0335 


10 
50 


» 
3 


PAGE 
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TOPS 
PA:< 
7233 | 
7235 
7236 
7237 
eH 
7248 
7250 
7251 
3 
4 
5 
7262 
7261 





be — 
s Fat 
& = 
— oe | 
x x S ¢, 
me — u © 
z 4 ae 
(a) 2 Ss (va 
z ° a ° aA Hy) x S 
a Fe a 8 , =F a. 
me 7) ad “wo = ww ~” 
a *e*e & oe oN %e %@ *%e & ee % *®e Se *e *e6 *e se *e 
é 
b ~ =~ 
wa aQaananad Qananad 
Cael ut uw ue f ton www ww § 
= ‘ . See . ~~ i 8 = . . Teo? . “=f © 
= ef Miniwee @ 5 vf tans ‘nee 
w a TAXMAN hice 8 oe 
- & ie a aS . acs 
%  abedee, me ssS3e aT SS gbigSSu, ve sicsesee=. aa 
od reve 2 ao twmner Beg eee Aa tme Se ew Be BE 








siatuvendSSScsccssssed kaye 


sML4AD 


13$: 
148: 
15$ 

16$: 
17$: 
18$: 
19$: 


000002 
28170 
40164 140164 











7. rw Son et a ohen oneness oe ee PFOOOAAOOOOROLoOSS- oueeee 
snaseagesenerees PERE REE REALS PARRARRRAS 


en ON 








—-- — ecw 


ee ee eee steer ee 


Ee ee —— 
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a T SEQ 0334 
1 sMLGAD r=1 16:23: TOPS 
, 3 TEST CODE SECTION ae lad 18:57:08 PA:< — 
, wus 21$ ! 
1 177777 21$: CMP —_—* ; PROM.DATA,* 7267 
1 BEQ 2$ 
1 JMP 1$ 
1 22$: ADD #10,SP ; 7095 
} RTS PC 
1 : Routine Size: 313 words ; 
: 1 : Maximum stack depth per invocation: 18 words 
: ig 126 -SBTTL T26 TEST CODE SECTION 
1 : 767 176612 1$: JSR PC,$T26 : 7267 
iF} 1044 TRAP 66 

ROR RO 


: Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 


ed ed ed eed eed eed eed eed eed 
LUV 


5 
3560 ; 7270 = !<BLF/PAGE> 


a 


item al 


“7 


eet semen = 
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ee t's ML~11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 352 
6 TEST CODE SECTION SEQ 0335 
5563 ;MLSAD $9 nar 1988 16:23:04 TOPS-20 Bliss-16 V2(212) 
; TEST CODE SECTION 9-Mar-1982 16 5 03 PA:<NEALE>ML4AD.BL1.4 (79) 


| 
BGNTST: 


SEELEY 


So 


bo4 
} TEST NUMBER: TST 27 

TEST NAME: INITIAL ARRAY TEST 
TEST DESCRIPTION: 


DUE TO THE NATURE OF THE DEVICE 
THERE EXISTS KNOWN BAD ARRAY 
DATA LOCATIONS. 


THEREFORE TO INITIALLY TEST THE ARRAYS‘ 
TIMING AND CONT Ic 

NIBBLE THRESHOL BAD NIBBLES 

OUT OF 100 NIBBLES TESTED WILL BE 
TOLERATED BEFORE DETERMINING CONTROL 
LOGIC TO BE IN ERROR. 


THE ARRAYS* ARE INITIALLY TESTED BY: 
1. VIA_DAT_DM MOD WRITE DATA PATTERNS 


YON IS 
Be Be Ge Ge Se Se Se Se Be Oe ee 
SNA N NNN 
RAR OOS NRA UN SOS NOOR 


MUMIA AAU AA an 
AP ag 















; 7 
: 7 
1 : 7 
1 5 7 
1 3 7 ! 
1 3 7 ! 
1 $ 7< ! 
15591 : 7296 | OF 1°S AND 0°S TO 5 ARRAY 
12895 | iSo6 | ” 
15594 : 7299 | 2. TEST EACH NIBBLE (4 BITS) FOR 
13 95: 7300 | 1°S AND O'S AND COUNT EACH BAD 
36 : 7301 NIBBLE ENCOUNTERED. 
1 ; 7308 i 3. IF ACCUMULATED BAD NIBBLES 
iF ; 73 é : EXCEED 36 THEN REPORT AN ERROR. 
1 . é 7 + : Vw 
156 : 730 
15605 ; 7308 cal 
15604 ; 7305 TST_PAT, 'TEST PATTERN 
15605 ; 7310 BAD-NIB_CNT, ‘NUMBER OF BAD NIBBLES FOUND 
506 ; ¢ 13 RR-FLG: ‘ERROR FLAG 
508 ; 7313 TST_PAT = ONES; 
13609 ; g 1% BAD-NIB_CNT = ZEROES: 
1 : 7 16 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
1 : 731 begin 
1 : 7 13 . 
1 $ 731 MBUS: 
1 515 ; ¢ ! IST PAT 'LOAD TEST PATTERN INTO DIAG REGISTERS 


ee ee ee ee ee ee” -- - 
° 
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T26 TEST CODE SECTION SEQ 0336 

15619 :ML4AD 29-Mar-19 16: 3: TOPS-20 Bliss-16 V2(212) | 
TEST CODE SECTION 29-Mar~19 6:33 £03 PA: <NEALE>MLGAD.BL1.4 (79) | 
1 : 3 AT DA = :SET DATA DIAG MODE 
1 ; 4 PIRST _BLK ONFER O: ‘SET UP A FIRST BLK XFERR 
: § MLCS1"= write; 1DO A MBUS WRITE FUNCTION 
i : : $ iner CNT from 0 to 4 do 'CLOCK 5 WORDS INTO MEMORY 
1 : : DELAY (ONE US); 
1 : 5( DAT_CLK = ONE; 
, ; 2 end; 
1 : CLR : 
1 : 5 DAT~DM | 'SET DATA DIAG MODE 
1 : 5 FIRST_BLK” ONE: QO: ‘SET UP A FIRST BLK XFERR 
1 : 7 MLCS1"= read: iDO A READ FUNCTION 
} ; 7 DELAY (ONE _US): 
1 : 7 9 incr ARR <WRD from 0 to 4 do 'READ THE 5 WORD IN MEMORY 
1 : 7341 DAT C clk = = ONE; 7 !CLOCK OUT A WORD INTO THE DIAG REGS 
1 ; 7 3 DELAY (ONE_US); , 
; ; RD_LNG_WRD: 'READ THE DIAG REGISTERS 
1 644 ; ? 6 iner NIB_PTR from 0 to 9 do 'READ THE 10 NIBBLES IN THE WORD 
! 646 : 7 5 Ts? L -LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG); !COMPARE TST PAT TO NIBBLE UNDER TEST 
648 : ¢ 63 if .ERR_FLG-IS_SET then BAD_NIB_CNT = .BAD_NIB_CNT + 1; 
15650 : 7351 INCREMENT BAD_NIBBLE COUNT IFERR_FLG SET 
15651 ; 7 § end; 
15652 ; 7. | 
aS 
15655 : 7 36 TST_PAT = not .TST_PAT: 'REPEAT WITH COMPLIMENT TST PAT 
15656 ; ? ENDSUB; : 
en ie 
i ; 5 if .BAD_NIB_CNT gtr 36CO—t : ‘SEE IF 36 OUT OF THE 100 XFERRED WHERE BAD 
15661 ; 73¢ _ TERROR IF GTR 36 

166¢ ; 6 E (77 C. PUMPER) 

1663 ; 6 PRINTR (FIV FR Fn PHR_4, WRD_12, WRD_45, FNC_14); 
166 : f ‘, & . : 

e6? +t ; 
13668 : art ENDTST: 
15¢ .SBTTL $127 TEST CODE SECTION 


$127 TES 










UPA | 
SOO A ALAA DON 
O69 ho Oe 


PACA OC 
SOO oOwowoe 
Scot A 


Minted tababatas.. 


re 
ré 


ll lt lh el a lh ll ll ed el de ad aed ed ed ec nc eed ed ie ee — 


ML~-17 L 


T CODE 


Vy. 
- > 7. 


Pree 4 
Pete 
=". @ tT: : 


Ru arta 


IINIOON 
NANI SONNE 


i SS 
res 


OGIC 
SECTION 


Se 
can 


> 


SAS SSS 


* 








or Gar? 


_?> 


_— 


+ _+_+_+_+— 


~+ 
eae 
<7. 


ANIOW—- 
NN NOW Ss 
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137714 


137676 


137730 
137576 


137656 


137560 


137542 
137610 
137456 


sMLSAD 


$127: 





AAeosoeeS 


OOo 
com 


TEST CODE SECTION 


R1,SSAVES 
~(SP) ,-(SP) 
ff- 


1.R 
-(SP) 
R5 


j 








R1, aML.REG+ 
R1.aML. 60, 
#10, aM .REG+ 

PC .FIRST.BLK.XFER 
#61. @ML.REG 


#1,R3 






@AL .REG+40 
,@ML .REG+120 


#10 
C-FIRST.BLK.XFER 
REG 


P 
& 
& 





ISDLy ne 


4(SP) 
R4 


7$ 
R2 


*, TST.PAT 
BAD.NIB. CNT 
TWICE 


TST.PAT,* 
TST.PAT,* 
TST.PAT,* 


C 


NT 
; *,SSTMP2 


*, SSTMP1 


; SSTMP 
3: SSTMP1 


SSTMP2 


: CNT 
; CNT,* 


; *, S$STMP2 


* ,SSTMP1 


SSTMP 
SSTMP1 


SSTMP2 
ARR .WRD 





SEQ 0357 


r=198 16:91:08 


TOPS | 
PA:< | 


7269 


~~ 
WUE Wl 


7339 


a 


NR -shete sce eeen — - 
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$127 TEST CODE SECTION SEQ 0338 
15731 sMLSAD -1 16:23: TOPS | 
i : TEST CODE SECTION ra1985 18; 1:08 ae | 
1 955760 152777 137536 11$:  BISB #20. aML.REG+120 : 7341 
fae n2708 Hidad on mov #1.R3 > *,SSTMP2 7342 
1 55774 126116 : *,SSTMP1 
; 956006 “i 404 ’ BEQ ; 
956002 0 000004 13$: CLR : SSTMP 
! tt Wie ? 7 3 DEC : SSTMP1 
156012 005303 148: DEC ; SSTMP2 
1 0560 96 137552 135350 15$: MOV @ML.REG+170.D1. TEMP 
1 aC 017767 137554 135344 MOV AML. REG+200.D2. TEMP 
1 aC 917767 137526 135340 MOV @ML.REG+160.E2. TEMP 
1 5040 0 CLR R4 : NIB.PTR 7345 
504¢ 10446 16$: R4,-(SP) : NIB.PTR,* 7347 
1 36 10146 MOV R1.~(SP) : TST.PAT.* 
1 9046 012746 000010 Mov = #10, =( SP) 
1 5052 06061 ADD » (SP) : ERR.FLG,* 
1 fe 142316 JSR PC, TST.LNG.WRD 
1 2060 026 7 10 000001 cmp 10{SP) a1 : ERR.ELG,* 7349 
1 $070 005266 000006 INC 6(SP) ; BAD.NIB.CNT 
1 974 062706 17$: ADD #6,SP ; 7346 
1 90 0052¢ INC Re ; NIB.PTR 7345 
} 5102 02 Z 000011 . : CMe RG TT ; NIB.PTR,* | 
1 > OC R2 : ARR.WRD 7339 
Dat $ 000004 R24 : ARR.WRD,* 
1 » 0051 R1 : TST.PAT 7 
} 14467 67 - 
eee 
i 9s 
138: JMP 1$ 
19$: R5 : TWICE 7316 
CMP RS #1 : TWICE,* 
1 cp a8 : BAD.NIB.CNT,* 7360 
1 TRAP : 7363 
WORD 115 
WORD 
1 nov | OF NC (SP) : 7364 
1 MOV #URD.45,-(SP) 
MOV #URD.12.-(SP) 
MOV #PHR. 4, =(SP) 
1 MOV #URD.22,-(SP) 
1 MOV #FIV.FMT,-(SP) 
MOV #6,-( 
MOV =f RO ; SP,* 
1 TRAP 4 


AAAAD 
SBBS 
OQ 
o 
~J 
SRLS 


13) eee 
He 
yg ond Be 
1 

1 

1 

1 

1 44 

1 767 
1 

1 

1 

! 6 207 
1 

1 

1 

1 

1 ; 7370 
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137602 


000016 
000006 


177232 


! <BLF /PAGE> 


sML4AD 
MOV 
TRAP 
TRAP 
ADD 
203: ADD 
RTS 


: Routine Size: 


: Maximum stack depth per invocation: 


-SBTTL T27 TEST CODE SECTION 


TEST CODE SECTION 


177 words 


T27:: 
1$: JSR PC .$T27 
TRAP 66 
BLO 1$ 
RTS PC 
; Routine Size: 6 words 


> Maximum stack depth per invocation: 


16 words 


0 words 


LL etter scheneeseeneeeee sentation 


SEQ 0359 


r-1982 16:23:04 TOPS 
ra 1989 16:57:03 PA:< | 


7365 | 


7362 
7269 


7367 


Cem ADO ML~-11 
Te7 TEST C 





BONO UR UNO NORD Se 


: 


t+. ++ 4+ 


“3.060 “ve 


LOG 
SEC 








I 
TION 


DM NANEUINOOSRNOOR 


NNN NNNNNNNNN 
NERA LSS 


rr. 


rs 


PIT at> 
Wee Oo. 


‘—_ ea 


C TEST 
I 
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TEST CODE SECTICN 


’ 
BGNTST: 


544 


+ 
i 
. 
‘ 
o 
‘ 
. 
‘ 
. 
‘ 
. 
! 
. 
5 
eo 
i 
. 
§ 
° 
§ 
« 
‘ 
a 
§ 
. 
' 
. 
i 
* 
5 
» 
u 
~ 
§ 
° 
4 
e 
§ 
4 
. 
* 
' 
oF 
i 


TEST NUMBER: TST 28 
TEST NAME: | PROM SELECTION TEST 
TEST DESCRIPTION: 
DUE TO THE NATURE OF THE DEVICE 
AND OF THE ARRAY MODULES’ UV 
PROMS, ONLY PROM READS 
ALLOWED DURING DIAG TESTING. 
THEREFORE THE y 









ARRAY MODULE UV PROMS 
ARE TESTED FOR UNIQUE SELECTION BY: 


9-mar=1969 16:91:08 





Se eset - 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BLI.4 ) 


1. AT EACH PRESENT ARRAY MODULE WRITE 127 ARRAY WORDS WITH 1°S/0'S PATTERN. 
2. READ THE UV PROMS AT THEIR RESPECTIVE ARRAY WORD LOCATION AND SEE IF 


THE PROMS MASK BAD NIBBLE LOCATIONS (ENCOUNTERED BAD N 
INDICATES INCORRECT MASKING). 
ARRAY MODULE. 





IBBLES 


COUNT EACH BAD NIBBLE ENCOUNTERED AT AN 


3. ALLOW A THRESHOLD OF 5 BAD NIBBLES AT ANY ARRAY MODULE. 


4. REPORT PROM SEL ERRORS AT RESPECTIVE ARRAY MODULE IF THE 


THRESHOLD IS EXCEEDED. 
IMPLICIT INPUTS: 
A BIT VECTOR OF 16 BITS WHERE 


DATA IS STORED 
AND ACCESSED FROM. 





10_BUF 

A VECTOR OF 256 WORDS WHERE 
DATA _FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 





ERR_CNT; 


DODU_FLG = ZERO; 
ST_PAT = ONES: 


DROP UNIT FLG 
'TEST PATTERN 
‘ERROR COUNT 


SEQ 0340 


ome eer le 


a 





Ap ay 
-¢ 
“te 


$944" 


>. 


ee ed ee ld eed 


G8 oe CD GeGD oaleanee 
oY ~~ + &; 


+: 


eemd cod eed eed ed eh oh 
Se Ge te Ge Ge Ge Ge Be Ge Be Ge Ge Se Se Ge Ge Ge Ge Te Ge Se Ge Be Be Se Be Be Se Se Ge Ge Ge Fe Ge Se Ge Se Ge Be Se Be De Se Ge Se Se Se Ge ee Be Oe Be. 


COOONAUS WSO € 


ll cl lh el ly el ll el al lh eh a el lh lh dh eh ca ed eh ed en ed edd od eed eed eed 
OODOCOOOOVoOoOoOVvVvOs 


ee eee OO wet wed Wy eed 


£8 


eet nents 
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r-1982 16:23: TOPS=20 Bliss-16 V2(212) 
TEST CODE SECTION ae at 18:53 308 PA:<NEALE>ML4AD.BLI.4 (80) 
sVER CZMLAD CHANGED TEST TO UNSIGNED TEST 
incrU ARR_SEL from 0 to .LST_ARR by -ARR_INC do !TEST ALL PRESENT ARRAYS 
n 
CNT = ZERO: 
BGNSUB; 
incr TWICE from 0 to 1 do ‘REPEAT LOOP TWICE 
n 


!LOAD DATA DIAG REGISTERS WITH TST_PAT 






‘SET DATA DIAG MODE 
‘LOAD WORD COUNT 





‘LOAD UBUS ADRS 
MLDA = .ARR SEL: 7 ‘LOAD SECTOR 
MLCS1 = write: 'DO A WRITE FUNCTION 
incr ont from 0 to 127 do 'CLOCK IN 127 WORDS 








‘SET DATA DIAG MODE 
‘LOAD WORD COUNT 
; ‘LOAD UBUS 
~ARR_SEL: 'LOAD SECTOR 
ad; 'DO A READ FUNCTION 
DELAY (ONE_US); 
incr WD_CNT from 0 to 127 do 'READ THE 10 WORDS 
n 


:GET PROM DATA FOR THIS WORD 
‘CLOCK THIS WORD INTO DIAG REG 


‘READ DIAG REG FOR THIS WORD 





incr NIB_PTR from 0 to 9 do ‘LOOK AT ALL 10 NIGBLE 
: f PD TEP C.NIB_PTR] IS_NOT_SET ‘FIND GOOD NIBBLES 


begin 
TS?_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG);: ‘!COMPARE NIBBLE TO TST_PAT 
if .ERR_FLG IS_SET then ERR_CNT = -ERR_CNT + 1; 


iad ‘INCREMENT ERROR COUNT IF ERROR FLG IS SET 


OL ee eee Neen ase 


mene cape eee 





Se eesti erties oe —_— 
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CZMLADO ML~11 LOGIC T 
Te? TEST CODE SECTION SEQ 0342 

15942 :MLGAD r=1982 16:23: TOPS=20 Bliss-16 v2(212) 

32 : TEST CODE SECTION Sonar 1965 18:57:03 PA:<NEALE>ML4AD.BLI.4 (80) 

} 945 ;: end; : 

i : TST_PAT = not .TST_PAT: ‘REPEAT WITH COMPLIMENT DATA | 

15949 : ‘ | 

1 : if .ERR_CNT gtr 5 - ‘ALLOW 5 ERROR BEFORE ERRORING | 

13958 : ae - ‘ERROR IF GTR 5 : 

13354 : PRINTB (THR_FMT, WRD 55 ORB 37, WRD_10); 

15955 : PRINTB (FMT-9, -ARR_SELS;: 

; : DODU_FLG = ONE; 

15958 : : | 

! § ° ENDSUB;: 

i : if .DODU_FLG 1S_SET !DROP THIS UNIT IF DODU_FLG IS SET 

1 : in | 

1 $64 3 DOBU (.ML_LUN); 

1 3 DOCLN; 

! : end; 

1 : end; 

: ENDTST; 

1 -SBTTL $128 TEST CODE SECTION 

: 1 6326 $728: Jj VES : 7369 

is OO DE 8 
3 135514 000006 Peat 7425 

: 138473 ropes 

: : ARR.SEL 

' bo0008 is ¢ ERR.CNT 7427 
3 | : TWICE 7%, 

: 0 137104 38: : 743) 
18 

) : te 137066 
; 137 ;@ML .REG+1 ; 

155 13721 mL REGS200 : TST.PAT.* 74 





TST.PAT,* 74 : 


ee 
eee een meee 


ML~-17 L 


cz ADO 
$T28 TEST CODE 
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Oe 
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aw’ 
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1371 
138 
137004 


136752 


137032 


136734 


136716 
136764 
4 6 
136650 


136616 


136514 
136670 


134502 


sPAL4AD 








H 11 
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TEST CODE SECTION 


R2 mani necro 
-REG+1 

: or 5020 

-REG+30 

#61 AML REG 


#1,R4 






420, @ML .REG+120 
R3 4177 

#40, QML .REG+40 
ML.DUT 






,aML .REG*+10 
#10.BUF ,aML .REG+20 
R1.@ML.REG+ 
471, aML.REG 

1,24 









~REG+230,PD. TEMP 
QML .REG+120 
#1.R4 


LSDLY.R5 
16$ 
14(SP) 
13 

$ 
R4 


14$ 
@ML .REG*+170,01. TEMP 


a 


TST.PAT,* 


ARR.SEL ,* 


CNT 


; *,SSTMP2 
* ,SSTMP1 


: SSTMP 
: SSTMP1 


SSTMP2 


CNT 
CNT,* 


ARR.SEL ,* 
* ,SSTMP2 
* ,SSTMP1 


; SSTMP 
: SSTMP1 


SSTMP2 
WD.CNT 


* ,SSTMP2 
; *, SSTMP1 


>: SSTMP 
3; SSTMP1 


SSTMP2 





TOPS 
PA:< 


SEQ 0344 


51:03 


— oe 


| 
| 
! 
| 
oOo 


59-nar-1963 
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zz z 2—- www 22 3 bem fe dee Tv) S 3 
*e *e te ®e *e *e *e ®e %®e@ %e *6 ee *e ®e *%e 6 se se yy se ee 
S a 
r $ 
[v) a 
Ww w a. es 
c& ” 4 
* ~~ On ~ - 
6.6. 6. 2 6.6.0= e 8 Ne cael 
ud (vy) 6. te 7 eee oe & 
w ee ee ee Yau oe | ” 6.6. ~~ oe ~ 
bm a et 8 i a — Rr o. e 
uw seoou8osee ve oor $32 Tabet 4 
— Seeceeceeecwee i a = ee 
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sMLSAD 
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18$: 
9$: 
0s 


13647 
1344 
015362 
177770 
000001 
124666 
06000 
000020 
14140 
000020 00000 
000010 
000006 
000011 
000177 
$27 000001 7 
5? 177260 
$627 000002 000005 21s: 





f 
+ 
iC 
1 
1 
5 
5 
+ 
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cee A00 ML~-11 LOGIC TEST MACRO M1113 S0-MAR-82 11:18 PAGE 46) 
$T28 TEST CODE SECTION SEQ 0345 

















1611 ML4AD 1 16:23:04 TOPS 
iol) $ TEST CODE SECTION ra1983 16:21:03 PA:< 
16 #2,-(SP) 

19 $7 0 ; SPs | 
ig #1.26(SP) ; *,DODU.FLG 7486 | 
16 #16,SP : 74 

1 22: 67 3 748 
161 RO 

181 33° 

: ‘ 23$: ileal 3 DODU.FLG.* 7491 
161 ML.LUN,RO 3 7494 
161 $1 

161 44 

161 4$: 4(SP) ,R1 3; *, ARR.SEL 7425 
161 S$: R1,6(SP) , 3; ARR.SEL,* 

181 ¥ 

161 26S: ADD #16,SP : 7369 
101 RTS 

161 : Routine Size: 244 words 

1917 : Maximum stack depth per invocation: 20 words 

ie 

161 -SBTTL 128 TEST CODE SECTION 

161 7, T28:: 

161 i 767 177024 1$: JSR PC.$T28 s 7498 
161 TRAP 

18184 98954 ao 

: 1 724 207 RTS PC 

1 4 : Routine Size: 6 words 

: 168 : Maximum stack depth per invocation: 0 words 

16164 ; 7501 '<BLF/PAGE> 


er Stee 








LCE Ee eee — 


K 11 
TEST MACRO M1115 S3O0-MAR-82 11:18 PAGE 563 
ON SEQ 0346 


9-Mar-1982 16:23: TOPS-20 Bliss-16 V2(212) 
$3-mar=19 16:37:03 PA:<NEALE>ML4AD.BLI.4 (81) 


8 t's ML~-11 LOGI 
728 TEST CODE SECT 


16166 ;ML4AD 


ae 


C 
I 


TEST CODE SECTION 


ee ced ed 
_—) 


' 
QGNTST: 
! 


144 
TEST NUMBER: TST 29 
TEST NAME: READ WRITE ARRAYS WITH PROM DATA 
TEST DESCRIPTION: 

COMB 


> BBse 


INE THE READING OF ARRAY 
MODULE DATA WITH ARRAY MODULE UV PROM DATA AND 
IND BLOCK WHERE FURTHER 

BE PERFORMED BY: 


STARTING AT BLOCK 0 WRITE THE BLOCK WITH SELECTED DATA PATTERNS 
AND 5 lg BLOCK AVOIDING ANY BAD NIBBLES POINTED TO BY THE 


VIC 


od ced eed ced ceed ceed ceed eed ccd 


WWNAOUL WN 






1. 


NNNNNNS “J 
AOU UTUTOT OOF 





° ' 

: : ; SET ERROR FLAG IF ANY BAD NIBBLES ARE ENCOUNTERED IN BLOCK. 

: é i 2. REPEAT WRITING/READING THIS BLOCK UNTIL ALL PATTERNS ARE TESTED 
3 i OR THE ERROR FLAG IS SET. 

: 5 i 3. IF ALL PATTERN HAVE BEEN TESTED AND THE ERROR FLAG IS NOT SET 

: 0 THEN SAVE THIS BLOCK ADDRESS AS THE GOOD BLOCK ADRS AND EXIT TEST. 
: 7528 Ci 4. ELSE IF THE ERROR FLG HAS SET THEN REPEAT TEST AT THE NEXT ROW. 
: o REPEAT UNTIL A GOOD BLOCK IS FOUND OR LAST ROW IS REACHED. 

: 7531 | 5. IF NO GOOD BLOCK 1S FOUND BY LAST ROW THEN REPORT ERROR AND 

; 3 EXIT TEST. 

: 0 4 IMPLICIT INPUTS: 

: 7536: LOADED DURING THE INITIALIZATION CODE AND CONTAINS THE ROW ADDRESS 
: ie INCREMENT VALUE FOR THIS DRIVE. 

: 7539 

: 7540 } PD_ TEMP: 

: 7541 | A BITVECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND 

: 034 ACCESSED FROM. 

: 7544 10_BUF: 

: 7545 A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTION 
: 7546 ARE FOUND. 

: rs47 

ot 

: 75 ° 

: 75 local 

: 0 WRD_CNT, 'WORD COUNT 

: 755 NIB~PTR. | iNIBBLE POINTER 


ee -- 


tj Ree 


dl ST 


bal 
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CZMLADO ML~11 LOGIC T 
T28 TEST CODE SECTION SEQ 0347 

1é sMLSAD 9-Mar-1982 16:23:04 forsnee Bliss-16 V2(212) 

16s 5 ; TEST CODE SECTION ra198S | 16: +P :03 A:<NEALE>MLGAD.BL1.4 (81) 

16225 ; 7556 'PASS COUNT 

16 6 : 7555 NIB spay iNIBBLE PATTERN 

16227 : 7336 FLG, iDONE FLAG 

16228 : 755 ERR Fig. iERROR FLAG 

16229 : 7358 SECTOR _NO: iSECTOR NUMBER 

16250 ; 755 

16231 ;: 7560 ee: 

16 E 7561 PASS 

16233 : 7 SECTOR NO-= “dénots: 

16536 | Fee7 DONEFLG 

16236 : 7565 do 'THIS LOOP DETERMINES WHEN TO STOP 

16538 : ree — 

16239 : 7568 do ‘THIS LOOP RUNS THE PATTERNS 

16240 ; 7569 pass 

16241 : 7570 PASS_CNT = .PASS_CNT + 1; ' INCREMENT THE PASS COUNT 

16242 ; 7571 R_ABUS: 

16243 : 757 SAT =" ONE; ISET DATA DIAG MODE 

16244 : 757 MDA = = .SECTOR_NO; - ILOAD SECTOR NUMBER IN DSA 

16245 : 757% MLWC = not 255: ‘LOAD WORD COUNT 

1¢ 4 : £303 MLBA = 10_BUF; iLOAD UBUS ADRS 

16 48 : 7577 case .PASS_CNT from 0 to 3 of ISELECT A NIBBLE PATTERN 

16249 ; 7578 set 

1058) at [02 : 

16 52 : 7381 NIB_PAT = %0°000000': ' ZEROES 

16254 : 7583 (1) : 

16¢ 5; rah _NIB_PAT = %0'17°: ‘ONES 

162 $3 1386 (2): 

16¢ 8 : ie 87 NIB_PAT = %0'12': 'ALTERNATING ONE'S, ZEROES 

16260 : 7589 (3) : 

16261 ; 7590 NIB_PAT = %0'15° !COMPLIMENT ONE'S, ZEROES 

1696 : 1391 tes: 

16264 : 759 incr LD_CNT from 0 to 9 do 'LOAD NIBBLE PATTERN INTO NIBBLE SAVE 

16269 ; 1394 LD_ENG_WRD (.LD_CNT, .NIB_PAT); 

16267 : 7596 WRT _LNG_WRD; 'LOAD THE DATA DIAG REGISTERS WITH NIBBLE SAVE 

1¢ 268 ; g 97 MLCS1 = write: iDO A WRITE FUNCTION 

16¢ A! : 1399 incr WRT_ <CNT from 0 to 127 do ‘WRITE PATTERN INTO THIS BLOCK 

16272 : 7601 DELAY (ONE US); 

19598 : fed DAT_CLK = ONE; | 

16275 : 7 

16276 : 7605 CLR_MBUS; 


ee nee 


WM=6 OC 


SOOO OOODOOOoO Uo 
+ . Ww 2 


eh eae 
ed ed ed ed. § ond ed eed ed 


stdtet 
te ter tt ater erat et 
SD WOONAULRWN =O OC 


* hd) 


aasiattitedtat 





LL Lee 


M11 
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CT 
ION SEQ 0348 
r-1982 16:23: TOPS-20 Bliss-16 v2(212) 

TEST CODE SECTION fa a 16: 1308 PA:<NEALE>ML4AD.BLI.4 (81) | 
7606 SET DATA DIAG MODE | 
7 ‘LOAD SECTOR NUMBER | 
7608 ‘LOAD WORD COUNT | 
7 = J iL S ADRS | 
7610 2 ‘DO A READ FUNCTION 
612 _CNT ‘RESET THE WORD COUNT 
7614 
7615 beg 'TEST ONE BLOCK FOR NIBBLE PATTERN 
1616 CNT = .WRD_CNT + 1; 
761 PD TEMP = .MLPD;: 'GET PROM DATA 
7618 DAT_CLK = ONE: ‘CLOCK DATA WORD INTO DIAG REG | 
7619 DELAY (ONE_US): i 
7620 RD_LNG WRD: 'READ DIAG REGISTERS 
26 1 NIB_PTR = -1; ‘RESET THE NIBBLE POINTER 
76 3 do 
7626 begin ‘SEARCH FOR GOOD NIBBLES 
, ; NIB_PTR = .NIB_PTR + 1; ‘INCREMENT NIBBLE POINTER 
£6 f i f .PD_TEMP [.NIB_PTR] IS_NOT_SET ‘TEST THIS NIB IF PROM FLAG NOT SET 

en 
HY TST_LNG_WRD (.NIB_PTR, .NIB_PAT, ERR_FLG); 
7631 end 
7038 until (.ERR_FLG) or (.NIB_PTR eql 9); 
76 end 
7635 until (.ERR_FLG) or (.WRD_CNT eql 127); 
63 end 
7638 until (.PASS_CNT eql 3) or (.ERR_FLG IS_SET ); 'REPEAT UNTIL ALL PAT TESTED OR ERROR FLG GETS SET 
7640 if (.PASS_CNT eql 3) and (.ERR_FLG IS_NOT_SET ) ‘WAS THIS A GOOD BLOCK? 
n 
764 begin “YES 
764 DONE_FLG = ONE: ‘SET DONE FLAG 
7644 GOOD-BLK = .SECTOR_NO: ‘GOOD BLOCK GETS THIS SECTOR NO 
7645 end 
: else . 3 
764 SECTOR_NO = .SECTOR_NO + .RAS_INC; ‘INCREMENT ROW NO 
764 PASS_CRT = -i: 'RESET PASS COUNT 
7650 end; 
A on 
en 

5628 


é 
7654 'VER CZMLAD CHANGED TEST TO UNSIGNED TEST 
2656 until (.DONE_FLG IS_SET ) or (.SECTOR_NO eqlU .LST_ARR + ARR_INC); 








CZMLADO ML~11 
T28 TEST CODE 
1 ; 
ie 5 ‘toes 
4 : ; 
18 Bs 
1 
16342 : 
16 § 3 
16344 : 
16345 ; 
16346 ; 
16328 : 
6349 : 
4 0; 
6352 : 


POR 
oot 


Cue 
Nin 
S900000 
MUMIA 
NIN 


ml el el a lh el ll cl el a ce me el ed ed dh eh ed eed ed ee ed ed ed ed ed ed 
AIAN PAA ASC 
BANIN pS =—Ow} ; Rt 
RED WAAC LN 
FOSS Orne 


~“ 


Wty 

: Ni 
attest UVa 
POLAMEOROMA RO ROE 


RUNS UINI=Owe 





ght tt pt tt tt tt ptt et es . . . . 7 2 a . © . . : 
Se, We fy § 1 60 08 AD Oe | el ? > > > 


LOG 
SEC 


“te 


oS 
Dawe 
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MACRO M1113 


TEST CODE SECTION 


30-MAR~82 11:18 PAGE 


iVER CZMLAD CHANGED TEST TO UNSIGNED TEST 
if .SECTOR_NO eqlU .LST_ARR + .ARR_INC 
then 


in 
aa (79, INTER, DUMPER): 


E 
PRINTB (T 
DODU (.ML 


ENDTST; 
125342 
000014 


177777 


000017 
000012 


000002 


136140 


136122 
136170 


136050 





eSBTTL $129 TEST CODE SECTION 
R1,S$SAVE5 


J 1 

SUB #14,SP 
4(SP) 
(SP) 





BIC 


Bas 


5$- 


A 
#17,R1 
#12,R1 


82855, BRAEERRENA SS: 


N 1 
366 


HR_FMT, WRD_14, PHR_10, FNC_15); 
ON); : 


2 
#40 QML .REG+40 
— ML.DUT RS 


1 








SEQ 0349 


9-Mar-1982 16:23: TOPS=20 Bliss-16 V2(212) | 
$3-mar= 1985 16:37:03 PA: <NEALEDML4AD.BL1.% (81) | 


‘REPEAT UNTIL GOOD BLK FOUND OR AT LST ROW 


‘SEE IF WE*RE AT THE LAST BLOCK 


‘A GOOD BLK NOT FOUND BEFORE LAST BLK 
‘ERROR AND DROP UNIT 


§ 7500 
- 7558 
; *,PASS.CNT 7561 
: SECTOR.NO 75 

; DONE.FLG 7 

; PASS.CNT 7570 





SECTOR.NO,* 


PASS.CNT,* 


NIB.PAT 
* oNIB.PAT 
* oNIB.PAT 





EZR ADO Mi~11 LOGIC TEST 
$T29 TEST CODE SECTION 





16393 057414 006 2 

16395 pe5c35 aspen, 000015 
16 39% aoe H7¢ 

16397 057406 O1¢ 

; 358 '- 74 : Js 15 141720 
. /: ’ ect 

16400 0574 50520 

16401 057440 920527 000011 
16403 057446 016777 133722 
16404 057454 016777 1 Zig 
164¢ f 16777 13371 
16406¢ ' 4 1 777 

164¢ ip 7 905003 

10608 a 

1é ' tp 

1641 'p 

16412 057 

e212 82e 

igi 

18417 0 

18619 08 


FFSFS 
Ws Ulrn 


i i a 1 ee ae ae ee eS eS ee eS | eS) oe 





& 
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4 
4 
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~~ 
NoM 
Sy 
~ 
~ 


MACRO M1113 30-MAR-82 11:18 PAGE Ser" 


135766 


135670 


135652 
135720 
138600 


135552 


000006 


| 132060 


135614 





BREE LE ta 
668° 





te 
oR 


eo be GO 
S23z8RER 





TEST CODE SECTION 


8$ 
#15,R1 
RS 


RS .-(SP) 
oe o~ (SP) 

“LD. Fried 
CsPDes 







RSA 


D1. Temp ae Ree? 170 
e5: TERP - TEMP -REG+200 











$-1,6(SP) 
6(SP) 

-REG+230,PD. TEMP 
‘ sahil .REG+120 








NIB.PAT 
Lb -CNT 
aE CNT,* 

NIB. Pat, * 


LD.CNT 
LD.CNT,* 


; WRT.CNT 
SSTMP2 


®, 


* ,SSTMP1 


; SSTMP 
3; SSTMP1 


SSTMP2 


: WRT.CNT 
: WRT.CNT,* 


SECTOR.NO,* 


; *, SSTMP2 


* ,SSTMP1 
id 
SSTMP2 
CNT 


wap CNT 


* ,SSTMP2 


sooner] 


SEQ 0350 


1O2g5:0% 
16:21:03 


' 
: 
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SEQ 0351 
1 ;MLGAD 1982 16:23: TOPS | 
} : TEST CODE SECTION $3-mar=t 18: 1303 Pare 
1 057714 001411 20$: BE 23$ 
9577 916705 122174 nov LSDLY.RS > *,SSTMPI 
16452 05 105066 000012 218: CLR = 12(sP) : SSTMP 
164 ib 10536 DEC > SSTMP1 
1 'p “1 4 BNE 21$ 
! ): 005 3¢ 22$: pec at ; SSTMP2 
16457 0! i 135630 133426 238: MOY © SML .REG+170.01. TEMP 
1 ib 46 917767 135632 133422 MOV @ML .REG+200,D2. TEMP 
1 17767 1 133416 MOV @ML .REG+160,E2. TEMP 
16460 0! 912716 1 MOV = #1. (SP) : *,NIB.PTR 7621 
1 0 16 24$: INC ; NIB.PTR 7625 
16462 0! 116C MOV = (SP) .RS ; NIB.PTR,* 7627 
1 106. 05 ASR R5 
1 0§ oC 520 5 ASR R5 
1 157776 0062 05 ASR R5 
1 YOUU Vis 05 01 5342 ADD #PD. TEMP RS 
1 26006 910546 MOV R5,-(SP) 
16468 060006 01 990902 MOV 2($p) ~(SP) ; NIB.PTR,* 
j 160012 04271 BIC #177770, (SP) 
1 960016 012746 000001 MOV = #1,,=(SP§ 
16472 Beppe Boaeee ish Besttscr2 
ve 60¢ + Je b600%6 ADD 1 6, SP 
19 D6C ,! DC 44 TST 
. yOUN ie BNE 2 $ 
16477 080042 010146 MOV ORT ~tSP)  NIB-PAT.« _ 
16478 060064 01 748 000016 MOV #16. -(SP) poesia 
V¢ 2606 D 06¢ 51 ADD SP, (SP) 3 ERR.FLG,* 
1¢ DOO 204 7¢ 1403 peo aa ee 
16482 06006 4 56( 10 25$: MOV  10(SP).R5 ; ERR.FLG,* 7632 
16484 060078 OO0T012, BNE oa 
1¢ 60 iF 5 000011 CMP §3P) #11 ; NIB.PTR,* 
16487 060102 032708 000001 BIT TRS 
1é r6C 90100 BNE . “_ 
16489 060110 026627 000006 000177 CMP SKSP) #177 ; WRD.CNT,* 
A gehi38 S018 ow BE | 7638 
ie 160122 026627 000002 000003 ae a ; PASS.CNT,* 
1é 9601 90100 BANE 7$ 
tess Rentse Boeck e & 
16496 0601 tie r 000001 27s: Raa 
1 60150 OC i TST RS 





Ne ee -_——— ———~ — 
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$129 TEST CODE SECTION SEQ 0352 
1650 sMLGAD 1 16:23:04 TOPS | 
16 ; : TEST CODE SECTION Saar! 18; 1:03 PA:<. 
1 BNE 
1 : 000004 MOV #1,4(SP) 3 *,DONE.FLG 7643 
mOV " SECTOR.NO,* 1644 
1 29$: ADD RAS. INC.R2 > *,SECTOR.NO ? 
16510 066 000002 MOV #-1.2(SP) : * PASS.CNT ok 
16 i 000001 30s: cp 4(SP) #1 > DONE.FLG,* 7656 
16 15 MOV LST.ARR.RS 
1 50216 ADD ARR. INC.RS 
16 15 06 CMP Re RS : SECTOR.NO,* 

16517 0¢ JMP 2$ 

16 18 32$: TRAP 67 

16520 061 BHIS 3 

16 1 06 167 177010 JMP i$ 

1 ? 5 133530 33$: MOV LST.ARR,RS : 7664 

16 6 705 133530 ADD INC, 

1 D6¢ , 6 5 CMP § ; SECTOR.NO,* 

1 BNE | 

1 Nel a 4 TRAP : 7667 

16527 06026. 117 . WORD 

; 160264 013116 -WORD INTER 

16580 060596 i576 012360 nov 1 7668 

16531 060274 012746 012006 MOV 

1 160300 01274 MOV 

06( 12746 010256 MOV 

16838 C6081, H1b6G MOV ie 

18 0336 G86700 135504 nov. “4 7669 

1 D6C 534, 10se3) TRAP 

18826 060886 93766 000012 ADD 7 
60334 ; 

1 D6¢ ¥¢ 039706 14 348: ADD : Fe86 


: Rout ine Size: 287 words 
: Maximum stack depth per invocation: 17 words 


M—OM 


oooaaaan 


-SBTTL T29 TEST CODE SECTION 


teense i — 
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; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 


MLADO ML~11 LOGIC T 
TEST CODE SECTION SEQ 0353 
1 sMLSAD :23: 
16 38 ; TEST CODE SECTION Somer n 138s 16:33:06 = Tors | 
yy T29:: | 
16565 767 176676 1$: JSR PC,$T29 : 7671 | 
i ow a 
1 BLO 1 
i 20 RTS PC 
7 
6 
6 
6 
4 


wt 
SAIN 


7674 !<BLF/PAGE> 


eeentaield 





rr eee - 


F_i2 
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T29 TEST CODE SECTION SEQ 0354 
sMLSAD rol 16:23: TOPS-20 Bliss-16 V2(212) 

16 ; TEST CODE SECTION 3 a 18:57:98 PA:<NEALE>ML4AD.BLI.4 (82) 

16584 : 7675! 

16 5; 7676 i 

1 76 BGNTST; 

16 76 

16 76 ' e+ 

16 g : TEST NUMBER: TST 30 

16 f TEST NAME: REFRESH TIMING TEST 

: f , : TEST DESCRIPTION: 

1 7 i TEST THE MEMORY ARRAY MODULES 

1 7 i REFRESH TIMING AND CONTROL LOGIC 

if ; ? REG BY: 

16 7 i 1. WRITING ALL ONES INTO THE 

166 7691 GOOD BLOCK. 

166 7695 : 2. DELAY FOR 2 MS 

1¢ 7695 | 3. READ THE GOOD BLOCK FOR ONES. 

166 7696! KEEP COUNT OF BAD NIBBLES 

166 769 ENCOUNTERED 

16¢ i 4. ALLOW A BAD NIGRLE THRESHOLD 

166 OF GAD NIGBLES OUT OF THE 

ue 1280 NIBBLES TESTED. 


5. IF THRESHOLD IS EXCE 
REPORT ERROR AND 


INPUTS: 





DED THEN 
THE UNI 





IMPLICIT 





NOUSWI=-O¢ 


Ve Ge Sa GaSe Ge Re Ge Se Ge Ve Ge Oe Be Oe Oe Se Se Se Se Se So Be Ge Go Ge So Se He Sp So Oe He Ou Se Sy Se Be be Os Oa be bobs Se Os Se bebe ce e@e 


SgSS3S3S8598 


A-GIT VECTOR OF 16 BITS WERE 
THE READ PROM DATA IS STORED 











5¢ 7711 AND ACCESSED FROM. 

56¢ rele 

+ ig 

$6¢ aay local 

b¢ aig TST_PAT, ‘TEST PATTERN 
hO2e 771 ERR_CNT, ‘ERROR COUNT 
662 orig ERR_FLG; ‘ERROR FLAG 


A ALAT OR 


Son, Oo oe 


‘LOAD DATA DIAG REGS WITH TST PAT 


ak lh ath nl el el eld cl cals eens el cel all cel cen cel el en eal ened en eee cep ed 





SN 


testis 




























2 
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T29 TEST CODE SECTION SEQ 0355 
16637 ;ML4GAD mats 5 16:63:06 TOPS-20 Bliss-16 V2(212) 
166 : TEST CODE SECTION r=1982 16:21:03 § PA:<NEALE>ML4AD.BL1.4 (82) 
16640 ; 7 DAT_OM_XFER (): 'SET UP A DATA DIAG MODE XFERR 
16661 : 7728 MLCS1 = write: 'DO A WRITE FUNCTION 
16648 : : incr une CHT from 0 to 127 do ‘WRITE BLOCK WITH TST PAT 
6644 Py n 
16645 ; 7 DE 
1oG%6 : § DA 
16647 ; 77 5 
10078 : 7735 
16649 : 7 CLR_MBUS 
16650 : DAT-DM_XFER (); 'SET UP A DATA DIAG MODE XFERR 
16651 : MLCS1 = read: ‘DO A READ FUNCTION 
1665¢ : rs 9 DELAY (TWO_TH_US): iDELAY FOR 2 MS 
16634 : a4}. incr WnO CNT from 0 to 127 do ‘READ THE BLOCK 
Ps n 
16696 ; oes PD TEMP = : 1GET THE PROM DATA 
1665 : 17h . 'CLOCK DATA WORD INTO DIAG REG 
16639 : ores 'READ THE DIAG REG 
18661 : 7748 incr NIG_PTR from 0 to 9 do 'LOOK AT 10 NIBBLES 
a. ss = 
16664 : Mey if .PD_TEMP C.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG): 
16666 : 7738 ‘FIND GOOD NIBBLES AND COMPARE THEM 
16668 : 7755 if .ERR_FLG IS_SET then ERR_CNT = .ERR_CNT + 1; ! INCREMENT ERROR COUNT IF ERR_FLG IS SET 
10656 : ores end: 
i a 
1 ig : 7760 : 
: : re] ENDSUB; 
1 6 : 7763 if .ERR_CNT gtr 20 ‘ALLOW 20 NIBBLES TO FAIL 
198 3 77 then 
1 $ 7765 poain ‘ERROR IF GTR 20 
1 : 77 E (80, ASYNC, PUMPER) ; 
1 : 77 PRINTG (FIV FMT. WRD_22, PHR_4, WRD_12, FNC_16, WRD_48); 
1 ; 77 DODU (.ML_LON): 
1 : 77 : 
1 : 7 2 
1 ; 777 
5: 7772 ~«OENDTST: 
1 -SBTTL $130 TEST CODE SECTION 
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135050 


135032 


134732 


135012 


134714 
134676 


134620 


13467 










aM .REG+1 
PCDAT.OM.XFER 
#61, @ML REG 





$20.0 »REG+120 
R 

R1 4177 

#40, QML .REG+40 
ML R3 





#1 R3 

oC ame ee48 
oH om a XFER 
rag 
tS LY,RS 


2(SP) 
RS 











R1 
»-REG+230,PD. TEMP 

rer @ML .REG+1 

#1,R2 

15$ 


T 
TST .PAT,* 
TST.PAT,* 


WRD. CNT 
*, SSTMP2 


* ,SSTMP1 


3: SSTMP 
3; SSTMP1 


SSTMP2 


; WRD.CNT 


WRD.CNT ,* 


: &,SSTMP2 


* ,SSTMP1 
SSTMP 
SSTMP1 
SSTMP2 


; WRD.CNT 


* ,SSTMP2 


(et et cee ee ed eel eed 
PAKAPAKA AAH 
~ ~ 
BBE 
oO 






el ee cell ell cee elt cel lh cel el adh adh, eel eal aca eel 


o 





nth walt mel elt cl el eal el eal ll ly el sels can el nels cy ceils lt ily cals cells cy cel cai, cal, calls ceil 


121252 
000002 


+++ 
a, oe 2 


»> 





¢.9. 4.4. 4+. ++. +++ + +4 o-oo 


oe 


tk ed ed ed ed en ed ed td ee oe eet en et es es cmd ee 
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17$: 


18$: 


19$: 





MOV 
BEQ 
CLR 
DEC 
BNE 
DEC 
BR 

MOV 
MOV 
MOV 
CLR 
MOV 
ASR 
ASR 
ASR 
ADD 
MOV 
MOV 


ASS n<5 
Sans 
< 


bey bee .. 
meanatencecen 


—4 dea 
it Ee 
aa 
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SDLY,R3 
4$ 
2(SP) 

R 


1 








ltl 









+3 






4 
& 
g 


ACARD 


Se eer 

vad s 

~~ & 
eh 


Ga 


= SD 
—_ Y 
we 





on 
N 


VEaass 
Ue 
> 





i 


1 

@ML .REG*+170,D1. TEMP 

aht -REG+200 bg: TEMP 
oE2. TEMP 





; *,SSTMPI 


S$STMP 
SSTMP1 


SSTMP2 


; NIB.PTR 
; NIB.PTR,* 


NIB.PTR,* 


: NIB.PTR,* 


TST.PAT,* 
ERR.FLG,* 


ERR.FLG,* 


WRD.CNT 
WRD.CNT,* 


ERR.CNT,* 


SEQ 0357 


r=1 16:23:04 T 
ra 98 16:21:03 PAte 


7755 
7748 
7741 
7759 


7763 
7766 


7767 


ii 
—~—— ee 


eeeciiaipeei a 


—— eee . 
eerste a = 
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$130 TEST CODE SECTION SEQ 0358 
168 :MLGAD r-1982 16:23:04 TOPS 
| 168 3 TEST CODE SECTION Sonera! 16:21:03 PA:< 
| 16808 061 12746 010650 MOV | 
| 168 1 12746 011 26 MOV | 
| 168 1076 012746 01 MOV | 
168 1 12746 010306 MOV 
168 11 127 MOV | 
Fs 1Oeene TRAP eet | 
16815 061116 016700 134706 mov ; 4 
166 11 2 hs TRAP - 
i 5 1 , 706 000016 ADD +6 SP 7765 
168 11 636 208: CMP (SP5+, (SP)+ ‘ 569% 
168 11 RTS PC 
168 ; Routine Size: 184 words 
168 ; Maximum stack depth per invocation: 15 words 
16% 
168 
168 - | i, -SBTTL 130 TEST CODE SECTION 
168 11 767 (177214 48: JSR PC,$T30 : 7770 
16§ 114 | TRAP 66 
168 We 1$ 
16848 081180 0°120 PC 
16§ : Routine Size: 6 words 
19% : : Maximum stack depth per invocation: 0 words 
1685 
16855 ; 7773 =! <BLF /PAGE> 
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rw 1585 19 $243: os TOPS-20 Bliss-16 V2(212) 


TEST CODE SECTION PA:<NEALE>ML4AD.BLI.4 (83) 


y 
BGNTS7: 
Se¢ 


TEST NUMBER: TST 31 
' TEST NAME: § ADDRESS COUNTER TEST 

i TEST DESCRIPTION: 

i TEST THE ABILITY OF THE ADDRESS 

COUNTER TO SUCCESSFULLY COUNT 

FROM THROUGH THE 

DEVICES LAST BLOCK BY: 

1. WRITING THE LAST BLOCK WITH ONES PATTERN. 


2. oT ce AT BLOCK ZERO WRITE ZEROES INTO ALL BLOCK UP TO THE 
T BLOCK ADRS MINUS ONE. 


READ THE LAST BLOCK FOR ONES AND ERROR IF ZEROES. 
3. ly Aaa AT BLOCK ZERO WRITE ZEROES INTO ALL BLOCK THROUGH THE LAST 


READ THE LAST BLOCK FOR ZEROES AND ERROR IF STILL ONES. 
i IMPLICIT INPUTS: 
i A GITVECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM. 


ocal 
ERR_CNT, ‘ERROR THRESHOLD COUNT 
ENDTCNY. ‘ENDING. SECTOR NUMBER 
BG PAT: © 'BACKGROUND PATTERN 





-BACKGROUND PAT OF ONES 
‘LOAD DATA DIAGS WITH BG PAT 








DAT_DM = ORE: 'SET DATA DIAG MODE 
LAST _BLK_XFER (); 'SET UP A_LAST BLOCK XFERR 
MLCST = write; !D0 A WRITE FUNCTION 
incr WRD_CNT from 0 to 127 do 'WRITE THE LAST BLOCK WITH THE BG PATTERN 
y 
DELAY (ONE_US): 
DAT_CLK = ONE; 
end; 


SEQ 0359 


— < ee owe. 





SS am 


ied 

SO 

wre 
eee 


sassse 
OOOS 


SSS 
SWONOUS 
Bee ee ee Sees 







OD 
NOUS WIN 


ee ee ee ee ee 
DAA AAAAAAAAAAAGAAHAA AAA 
DODOODODOOO 


ee weed SD ced od eed eed ed 


Se ee eS SS 


SSERES 


aon 





TEST CODE SECTION 





LAY (ONE US): 
ERR_CNT = ZERO: 


incr WD_CNT from 0 to 127 do 
n 





begi 

PD TEMP = .MLPD:; 
DAT_CLK = ONE: 
DELAY (ONE_US): 
RD_LNG_WRD; 





incr NIB_PTR from 0 to 9 do 
begin 













FIRST _BLK_XFER QO; 


is aLK ar 
75 = write; 


fe : | 
aS ‘VER CZMLAD CHANGED TEST TO UNSIGNED TEST 





LL ists: teesnsseeeess — 
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1 16:23: TOPS-20 Bliss-16 V2(212) 
2 al F 16: 1308 PA:<NEALE>MLGAD.GL 1.4 (83) 


:SET DATA DIAG MODE 

:SET UP A LAST BLOCK XFERR 

:DO A READ FUNCTION 

‘CLEAR ERROR COUNT THRESHOLD 

‘READ THE LAST BLOCK FOR 8G PATTERN 


‘GET PROM DATA 
:CLOCK OUT THE DATA WORD 


‘READ THE DATA WORD 
‘LOOK AT 10 NIBBLES 


7 if .PD_TEMP C.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .BG_PAT, ERR_FLG); 
784 'FIND GOOD NIBBLES AND COMPARE THEM 
7e4 if .ERR_FLG IS_SET then ERR_CNT = .ERR_CNT + 1; !INC ERROR COUNT IF ERROR DETECTED 
7850 end; 
7851 
2g end; 
f 34 if -ERR_CNT gtr 10 '1S ERROR THRESHOLD EXCEEDED 
en 
7 56 begin ‘ERROR IF EXCEEDED 
785 ERRDF (81, INTER, DUMPER): 
7 38 PRINTB (THR_FMT, PHR_4, WRD_13, FNC_22): 
785 PRINTB (TWO_FMT, FNC~13, WRD_56): 
ret EXIT_TST: 7 
; 
? END_CNT = .LST_BLK = 1: ‘END AT LAST BLOCK -1 
7 MLDT = ZEROES: 'LOAD DATA DIAG REG WITH COMP BG PAT 
7 MLD2 = ZEROES: 
; MLE2 = ZEROES: 
4 iner Twice from 0 to 1 do ‘REPEAT LOOP TWICE 
n 
g CLR_MBUS; 
ERR_CNT = ZERO: ‘CLEAR THE ERROR COUNT THRESHOLD 
4 = ONE: ISET DATA DIAG MODE 


‘SET UP A FIRST BLOCK XFERR 
'DO A WRITE FUNCTION 


SEQ 0360 


Pe 
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CZMLADO M11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 378 
T30 TEST CODE SECTION SEQ 0361 

16967 ;ML4AD r-1 16:23: TOPS-20 Bliss-16 Vv2(212) 
16 : TEST CODE SECTION Sonar 1985 16:373.98 PA:<NEALE>ML4AD.BL1.4 (83) | 
16970 : 7878 ! | 
16971 : g S incrU BLK_CNT from 0 to .END_CNT do !CLOCK THE ADDRESS COUNTER UP TO END_CNT | 
169 : g : incr ADRS_CNT from 0 to 127 do 

Ps) n 
1 : 7 DAT_CLK = ONE: 

: 7 end: 
10978 | es F LRABUS: 
1 : 7 DAT-DM = 'SET DATA DIAG MODE 
1 : 7 rAST B BLK Xreh QO: 'SET UP A LAST BLOCK XFERR 
1 : 7 MLCST = read iDO A READ FUNCTION 
; 6988 , 90 DELAY (ONE “US): 
16 : g 92 iner WD CNT from 0 to 127 do ‘READ THE LAST BLOCK FOR BG PATTERN 
1 : 7894 PD TEMP = .MLPD: 'GET THE PROM DATA 
1 ; 7895 DAT_CLK = ONE; iCLOCK OUT DATA WORD 
1 : 7 DELAY (ONE_US): 
’ : 897 _LNG_WRD: 'READ DATA WORD 
16991 : 7899 incr NIB_PTR from 0 to 9 do ‘LOOK AT 10 NIBBLES 
16998 5304 — 
16994 : 7908 if .PD_TEMP C.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .BG_PAT, ERR_FLG): 
16996 : 7904 'FIND GOOD NIBBLES AND COMPARE THEM 
16998 : 7906 if .ERR_FLG IS_SET then ERR_CNT = .ERR_CNT + ONE; !INC ERROR COUNT IF ERROR DECTED 
1 : 908 end: | 
17001 ; 7 
im UR 
7 4 : ote if. -ERR_CNT gtr 10 11S ERROR COUNT THRESHOLD EXCEEDED 
1 : 918 begin ‘ERROR IF EXCEEDED 
1 ; 15 F (82, ASYNC, DUMPER): 
1 : 7916 PRINTS (THR_FMT, WRD_50, WRD_51, WRD_10); 
1 : Laat end; 
i 11; 7919 END_CNT = .END_CNT + 1: ‘NOW END AT THE LAST BLOCK 
1 18 : a ! 86_PAT = not .BG_PAT; COMPLIMENT THE BG PATTERN AND REPEAT 

° end; 
17014 : a § 
17015 ; ENDSUB; 
16: 7924 ENDTST: 
1 -SBITL $131 TEST CODE SECTION 





ee 
——$ 





















" 7? SEQ 0362 | 
- MACRO M1113 30-MAR-82 11:18 PAGE wee teenie ene 

$T31 TEST CODE SECTION r~1982 16:23: 
en sMLGAD TEST CODE SECTION 7772 

' e . 

17088 $131: JSR «RT SSAVES 7809 
1% $1152 004167 123434 2 #10.SP ; ; 

350 : : Jt $ eREG+4 . e 
17 ’ 11 10% 2 0 136252 moras. 

035 061172 016705 1 sREG+40 7813 
# g1208 44 705 000007 134234 RS cant REG ; 228G-PAT sa 
17036 061310 150577 134290 R1,aML .REG+170 : BG:PAT.« 7816 
17037 061 10177 156550 R1,aML -REG+200 : BG.PAT.* 7817 
17038 061 10177 13d3e5 R1-aML -REG+160 7818 
17039 061 leisy | 130836 BISB RIO aM neGes oO 7819 
1% , 61 01 177 10 134262 aaa BC-CAST.BLK.XFER — 721 
1706¢ Oolese 906767 137076 a: gm.  S,S8INP2 
17063 061 90500 $ ai oRS STMP1 
19048 061 312703 000001 2s ae : 8,8 
$0e9 CerSee SUESAE 120626 ss : $STMP 
17048 081270 0046 4s: 6(SP) ; SSTMPT 
12009 O6le7e OC as ; SSTMP2 

050 061 101374 R3 7824 
f 961300 001374 5S: i ae 743. 

res OS OC #20, aML .REG+ ; WRD. 

$ Je , 10 6$: 4 s NT,* 

HK ‘| nae 7 Ban ‘oe = 
17 5 061 68 ste #60, 0M. .REG*4O ‘ 

057 061 > 0 134112 bur R5 
1TOse Oeiess | 4385 13ers "a RS 
F066 Oci38e b00007 134076 #7 .aAl .REGe4 7828 

706) 4 ' i @ML .REG+120 : | 7 
7062 06135( 10 1346142 PC LAST -BLK.XFER 7831 

06: + hg 3 5 REG 3 *,SSTMP2 

mae Agieee  f 134010 #1 i 

7066 06 ¢ ; ‘ 7$: ay Re s *,SSTMPI 

Rs Oereee SaetE 120810 5§ ; SSTNP 

7065 + wm C ¢ 4 8$: ; SSTMP1 
7070 061410 OK _— ; SSTMP2 

707" + & * & e 78 

rC re Je 4 . + 9S: 7$ s ERR CNT 78% 

HOE Baiess «Ahi (SP) ; WD.CNT 

F JE 4 + oF Ve 
1308 eit JO 01776? 136200 133706 118: OV SAL. REG 





—— 





7841 
7844 
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BO a IIMS FTAA ON 





. oo ve SNS —_— 


) ~< 


. e\*s - . ‘'« ~— +A 
pnt pind Ria ed > Nett ger ot 


SRRRAA RRARAAARARARARARAARAAARAARAARAARARARRRRRR 


= —_ _ SSS. ssssssressesasnsnssssseessststsssstussssuwnsstesmmmmsmnsmemmemnes LV 




















13 
ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE $3 
$131 TEST CODE SECTION SEQ 0364 
17135 :ML4AD 1982 16:23:04 TOPS 
He : TEST CODE SECTION a ad 16:57 .08 PA:< | 
17138 061 #THR.FMT.-(SP) 
17139 061 #4 ,-(SP) 
17140 061 SP. : SP,* 
17141 061 14 
17142 061 56, (SP) ; 7859 
17 061 #FNC.1 -(SP) 
17144 061 #TWO.FMT.-(SP) 
17145 061 #3,-(SP) 
17 061 SPR e SP,* 
iia 8 f 
1 061 #20. SP : 7854 
17150 061 : 785 
17151 061 000002 193: LST .BLK.2(SP) : *, END.CNT reas 
17153 061 1 aM .REG+170 : 7864 
17154 061 77 133614 aM .REG+200 : 5 
17155 061 77 133570 aM .REG+160 : 7866 
171 06 13 g 1008 133440 20S: : , 7869 
71 D¢ 704 17799 
1216 62 42777 90000 133422 . 
1p1e2 be boson ne cL ERR. CNT 7871 
iis Sake cnet guns 10s He fiom csc tt 
1716 ie 000061 133334 1,aML.REG : 7874 
Fars on} an ; BLK.CNT 7879 
17168 ¢ 1$: CLR R4 : ADRS.CNT 7881 
17h Os 000020 133440 ate BIS8 420, aML.REG+120 : 7883 
171 10526 INC : ADRS.CNT 7881 
920427 000177 cn ; ADRS.CNT,* ) 
us 
105203 INC : BLK.CNT 7879 
' 120366 000002 23$: CAP : BLK.CNT,END.CNT 
17176 0 133332 8I1SB : 7 
171 N16 14 mo _ 
i 3 9 133314 BICB 
. ¥ 10 133362 8188 7887 
) | a 133230 MOV : | 7 
. ; 1 MOV : *, $STMP2 
.} »C 243: BEQ : 
1 46 p67 117730 nov ; *,SSTMP1 
17188 if 000006 25$: CLR : SSTMP 
17188 D $86 DEC : ssi 








a ——— 
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CZ-ADO ML~11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE Sa 
$T31 TEST CODE SECTI 



























ON SEQ 0365 — 
17191 sML4AD ra 1982 16:23:04 TOPS | 
: TEST CODE SECTION r-1982 16:21:03 —PAr< | 
1 1374 BNE 23s 
: 3 26$: eet ae 3; SSTMP2 
1 378: CLR R2 ; WD.CNT 7892 
1 1334 133126 : = «MOV -REG+230,PD. TEMP : 789% 
1 15 000090 1 BISB Of QA .REG+120 : 7895 
172 1 703 1 MOV : *,SSTMP2 
1720) 10141 298: BE 328 
176k 316704 117662 mov LSDLY.R4 : *,SSTMPI 
17204 105066 000006 30S: CLR (SP) ; SSTMP 
172C 00536 DEC R4 : SSTMP1 
17206 001374 BNE 30s 
! 0 008 3 31$: ose ae ; SSTMP2 
17209 06 1 1 316 131114 32$: MOV = @MIL.REG*170,D1. TEMP 
17210 06 117767 +1333 131110 MOV afil .REG*+200.D¢. TEMP 
1721 017767 133272 131104 MOV @ML .REG+160.E2. TEMP 
1721 005 CLR R4 ; NIB.PTR 7899 
1721 01040 33$: MOV : NIB.PTR,* 7902 
1721 JVOCK ASR 
17512 1062 Aen 
i 062703 015342 ADD 
1 19 110446 MOV : NIB.PTR,* 
17220 042716 177770 BIC 
12746 000001 Ov 
17 0 aha 121300 JSR 
17é Je 7 10 ADD | 
1 0 TST 
: f 90101 BNE 
10146 mov ; BG.PATSS. 
17395 12746 000012 MOV ~(SP) sh ip 
1723 960616 ADD 2 (SP ; ERR.FLG,* 
1758) 004767 136014 JSR PC. TST.LNG.WRD 
i St 2¢ $07 000001 348: cw 4( #1 : ERR.FLG,* 7906 
105216 INC (SP) ; ERR.CNT 
re 0052 35$: INC RG ; NIB.PTR 7899 
172 920427 000011 CAB RG TT : NIB-PTR,* 
7¢ 4 J . BLE 
17235 D0: De INC R ; WD.CNT 7892 
ie 20227 000177 CMe R #177 : WD.CNT,* 
1%¢ 21627 000012 CMP = (SP) #12 ; ERR.CNT,* 7912 
1 nf ee BLE 36s 
1 RAP ; 7915 
1 000122 -WORD 122 
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CZ ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE bas 
$731 TEST CODE SECTION SEG 0366 
17267 sPL4SAD r=1 16:23: TOPS 
I re ; TEST CODE SECTION ra19B5 18:53308 PA:< | 
1725C -WORD AS 
1 -WORD DUMPE 
175 ; MOV FURD ; 7916 
a 
i MOV RG 
MOV SP.RO : SP,* 
1 ADD #12,SP 3 7914 
1 36$: INC 2(SP) > END.CNT 7919 
1 COM R1 ; BG.PA 7920 
1 INC RS 3; TWIC 
1 CMP R26 3; TWICE,* 
ra 
1 37$: TRAP eos $ 7921 
1 ROR ie 
: BHIS . 
175 383: #10.SP ; 7772 
1 RTS PC 
1355 ; Routine Size: 377 words 
: S ; Max imum stack depth per invocation: 18 words 
£ 
18 
1768s soni T31 TEST CODE SECTION 
1759¢ 1s: PC.$T31 7923 
172 
1% KD 
ie: . 
17996 ; Routine Size: 6 words 
172 : Maximum stack depth per invocation: 0 words 


a eres ei enemteensesectsashansaisstiennssinsnnesissespsssuunsneseeemsenst-ssiaemmemmememeeesccee-......... 


io 


F 13 
CZMLADO ML-11 LOGIC T : 
te Test tone seeitae TES MACRO M1113 30-MAR-82 11:18 PAGE 384 one omy 
17303 ;MLSAD r-1 16:23 T 
- 223: OPS-20 Bliss-16 V2(212) 
ies 3 TEST CODE SECTION ra198 18:57:03 PA: : <NEALESML AAD Bi cc 233) 
1 ; 7925 !<BLF/PAGE> 


ee 


ee ee ee -- 
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et ML~11 LOGIC T 
ON SEQ 0368 


Ic 
TEST CODE SECTI 


08 :MLSAD r~1 16: 3: TOPS-20 Bliss-16 ¥2(212) 
09 ; TEST CODE SECTION la 1303 PA:<NEALE>ML4AD.BL1.4 (B84) 
1 f 
1 i 

BGNTST: 

$4 


i TEST NUMBER: TST 32 


! TEST NAME: § ARRAY MODULE SELECTION TEST 
i TEST DESCRIPTION: 


TEST FOR UNIQUE ARRAY MODULE 
SELECTION BY: 


1. WRITING THE rae collve ARRAY 
MODULE TION NUMBER INTO 

THE FIRST GOOD NIBBLE FOUND 
HE Y. DO FOR ALL 


READ THE ARRAYS FOR THEIR 
RESPECTIVE POSTION NUMBERS. 
! IMPLICIT INPUTS: 

e TEMP: 


A GIT VECTOR OF 16 BITS WHERE 
THE READ PROM DATA IS STORED 
AND ACCESSED FROM. 


eed ceed ered eed ced eee 


2 OOBNAULWN=O De 










3B NIA UES WAIN = 


ORORORIRORORGROROS 





Nk ek ed ed ed ed ed eh a ed ed ed ed ed ed ed sn 





Lad i dl nd ad alt 
PU thy 





5 ¢ 


ats 





10_BUF : 

A A VECTOR OF 256 WORDS WHERE 
DATA FOR mBus READS AND WRITE 

FUNCTION FOUND. 





i 
] 
' 
‘ 
‘ 
‘ 
5 
‘ 
! 
4 
' 
' 
' 
2. 
é 
‘ 
! 
' 
t 
’ 
' 
3 
5 
{ 
‘ 
i 
' 
‘ 


local 


WRDS_TSTED, ‘WORDS TESTED 








ALLL 


: * 'ARRAY SELECT 
; FND-GD_NIB, i N 
ARR_NUR:; NUMBER 
_SEL = ZEROES 
ARRT SEL = .ARR "Sit - _ INC: ‘START ARR_SEL BACK ONE ARRAY 
iner we CNT from 0 to sae iiaed de ‘TEST ALL PRESENT ARRAYS 





CL 
FND” GD nis = = ZERO; 
WRDS _TSTED = ZERO; 
DAT_BA = 

MLWE = not és. 


—~ 


KC 





ek ee el eel el cel elt el call cel cals cl el lh el el el cel ls cel el cel eh ces acl ceils eh ei ec eld es 


‘SET DATA DIAG MODE 
‘LOAD WORD COUNT 


meme eee eee + 


LLL LL Cet 
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Cer ADO ML-11 LOGIC TEST MACRO M1113 SO-MAR-82 11:18 PAGE 386 
T31 TEST CODE SECT! 


ON SEQ 0369 














17364 :ML4AD 1982 16:23: TOPS-20 Bliss-16 V2(212) 

} 165 TEST CODE SECTION Sonar 1965 18:53:08 PA:<NEALEDMLGAD.BL1.4 (84) 

17367 ; 7 'LOAD 10_BUF 

17368 ; ‘LOOK AT"NEXT ARRAY 

17369 : MLOA = .ARR SEL: 'LOAD DSA WITH SELECTED ARRAY AT BLOCK ZERO 

: D ; MLCS1 = write: 'DO A WRITE FUNCTION 

i 72: !THIS LOOP WRITES ARRAY NUMBERS TO THE ARRAYS 

Ps} n 

17376 ; DELAY (ONE_US); 

17375 : PD TEMP = -MLPD: 'GET THE PROM DATA 

! 26 : WRDS_TSTED = .WRDS_TSTED + 1; 'COUNT WORDS TESTED 

17378 : incr CNT from 0 to 8 do !LOOK AT 9 NIBBLES 

1 8 : if -PD_TEMP C.CNT] IS_NOT_SET ‘FIND A GOOD NIBBLE 

f : begin 

1 5§ 4 : case .CNT from 0 to 8 of !SELECT AND LOAD GOOD NIBBLE WITH ARRAY CNT 
Id @ e 

17386 ; 

17387 ; CO} : 

88 ; (MLD1)<0, 4> = .ARR_CNT;: 'NIBBLE 0 

17390 : C1) : : 

91 : (MLD1)<4, 4> = .ARR_CNT; INIBBLE 1 

17 gi (2) : 

4 : (MLD1)<8, 4> = .ARR_CNT: 'NIBBLE 2 

17396 : (3) : 

17397 : (MLD1)<12, 4> = .ARR_CNT: INIBBLE 3 

17399 : 4] : 

1% : (MLD2)<0, 4> = .ARR_CNT: “INIBBLE 4 

17402 : (5) : 

4 ; 3 (MLD2)<4, 4> = .ARR_CNT: INIBBLE 5 

17405 : (6) : ) 

126 ; (MLD2)<8, 4> = .ARR_CNT: INIBBLE 6 

174 : (7) : 

4 : (MLD2)<12, 4> = .ARR_CNT: 'NIBBLE 7 

1741 ca) : 

412: (MLE2)<8, 4> = .ARR_CNT: 'NIBBLE 8 

od 3 tes; 

1 4! : FND_GD_NIB = ONE; ‘SET FOUND GOOD NIBBLE FLG 

17416 : exit loop: ‘EXIT THE LOOP 

1aNb = 





OE eee, OEE 





rt sents _ 
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CEMLADO ML=11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE $8? 

T31 TEST CODE SECTION SEQ 0370 
17420 ;MLSAD r-1 16:23: TOPS-20 Bliss-16 V2(212) 
1268) TEST CODE SECTION $o-par=1983 16:37:03 PA:<NEALE>ML4AD.BLI.4 (84) 
176 5 ; 3030 DAT_CLK = ONE; CLOCK GOOD NIGBLE INTO MEMORY & GET NXT PROM WRD | 
1745 : aC until (.FND_GD_NIB IS_SET ) or (.WRDS_TSTED eql 14): ‘DO UNTIL FOUND GOOD NIGBLE OR 14 WRDS TSTED | 
17627 ; a if .WRDS_TSTED eql 14 !1F 14 WORDS TSTED 
17428 ; 3035 then 
17429 ; f begin 'THEN ERROR AND EXIT TESTED 
17430 ; a ERRDF (142, INTER, DUMPER): 

17431 ; aC PRINTB (SEV_FAT. WRD_14, PHR_10, FNC_15, WRD_12, FNC_17, WRD_37, WRD_56); 

17432 ; a EXIT_TST; 

17435 ; aC end; 

17634 ; 4! 

102 5; 3 end; 

17437 ; $044 ARR_SEL = ZEROES; 

12638 3045 ARR_SEL = .ARR_SEL - .ARR_INC: START ARR SEL BACK ONE AGAIN 

17640 ; 8067 incr ARR_CNT from 0 to .OP_NUM_ARR do 'TEST ALL PRESENT ARRAYS 
s at n 

R86 3 aC 3 ; 

100? 3 3050 

17048 aC 32 'SET DATA DIAG MODE 

17646 aC ‘LOAD WORD COUNT 

17647 ; aC = 10_BUF; LOAD UBUS ADDRESS 

17648 : $055 «= ARR_SEL =~. ARR SEL + .ARR_INC: 'LOOK AT NEXT ARRAY 

17449 ; B05¢ MLDA = .ARR_SEC; ‘LOAD DSA WITH ARRAY SELECT 

17630 sc MLCS1 = read; 'DO A READ FUNCTION 

163 ; aC ; do ‘THIS LOOP READS ARRAYS FOR ARRAY NUMBERS 
s ROH n 

17454 ; b0¢ DELAY (ONE_US) ; 

17658 3065 PD_TEMP = [MLPD; !GET THE PROM DATA 

192 ; $064 incr CNT from 0 to 8 do !LOOK AT 9 NIBBLES 

1% ; 3066 | if -PD_TEMP C.CNTJ IS_NOT_sET !FIND THE GOOD NIBBLES WHERE ARR NUM IS STORED 
é ei tie en 

1 ; 3068 begin 

124Ge 3065 DAT_CLK = ONE; !CLOCK ARRAY WORD OUT 

1 ; 307 case .CNT from 0 to 8 of !SELECT AND READ GOOD NIBBLE 

, 3 oes set 

1 ; 307 

1 ; 8074 (0) : 

17668 3075 ARR_NUM = .(MLD1)<0, 4>; 'NIBBLE 0 

174 ; 3079 (1) : 

\ ; noe ARR_NUM = .(MLD1)<4, 4>; ‘NIBBLE 1 

17473 ; 308( [2] : 

19054 ; B08 ARR_NUM = .(MLD1)<8, 4>; 'NIBBLE 2 


SS nee 


ee re a ee eee 





re = 
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CEL ADO ML-11 LOG’. TEST MACRO M1113 30-MAR-82 11:18 PAGE 383 
151 TEST CODE SEC110N SEQ 0371 





'SEE IF ARRAY CONTAINS IT’S ARR NUM 
‘ERROR IF NOT THERE 
Fe.) 17, WRD_37, WRD_10): 
ARR_NUM) ;~ 





if .ARR_CNT -ARR_NUM 
then a 








ERRDE “(Pon EMT i uRD 35 


PRINTS (FMT_14, .ARR-CNT, 
end: 





17476 :MLGAD r=19 16: 3: TOPS=20 Biiss-16 V2(212) 
17677 _ TEST CODE SECTION iat 1303 PA:<NEALE>ML4AD.BLI.4 (84) 
176 : (3) : 
1; ARR_NUM = .(MLD1)<12, 4>: 'NIBBLE 3 
1 : [4] : 
: ARR_NUM = .(MLD2)<0, 4>: 'NIBBLE 4 
: (5) : 
F ARR_NUM = .(MLD2)<4, 4>: 'NIBBLE 5 
1 : [6] : 
; ARR_NUM = .(MLD2)<8, 4>; 'NIBBLE 6 
1 : {7] : 
: ARR_NUM = .(MLD2)<12, 4>; 'NIBBLE 7 
1 : (8) : 
1 s ARR_NUM = .(MLE2)<8, 4>; 'NIBBLE 8 
1 $ tes; 
: ND 6D WI NIB = ONE; 'SET FND GD NIB FLG 
: exit ‘EXIT LOOP 
: DAT_CLK = ane 'CLOCK OUT NEXT PROM LOCATION 
: until .FND_GD_NIB IS_SET; 'REPEAT UNTIL FOUND THE GOO? NIBBLE 





ENDSUB; 
end; 
-SBTTL $732 TEST CODE SECTION 
ea 1ge076 $132: By ee : 7924 
CLR RS ARR. SEL 7968 
131216 Sua ARR. INC RS : *, ARR.SEL 796 


Sqemnmenemeseten 


tee —-—— ee em ee 
ee ee ee ees re ee ee 


eo 





a eerie cetera eee 
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CZMLADO ML~11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 389 
$T32 TEST CODE SECTION SEQ 0372 
175 sML4AD r=-1982 16:23:04 TOPS | 
1% : TEST CODE SECTION r-1989 18:91:03 Pats | 
' 
17535 06 000002 MOV = OP. NUM. ARR, 2(SP) : 7971 
133 6. 2 CLR ; ; ARR.CNT 
17538 062 603 132634 1$:  BISB #40,aML.REG+40 ; 7972 
17539 06261 MOV bur He 
17540 062614 BIC 6.R2 
17541 062620 132616 BICB «#7, @ML .REG+40 
17348 062626 B1S8 @ML .REG+40 
17543 06263. CLR ) ; FND.GD.NIB 7974 
17 0606: CLR = RG ; WRDS.TSTED 7975 
17545 062636 132660 BISB @ML .REG+120 ; 2976 
17546 0626 13254 MOV = #~400,@ML.REG+10 79 
1 0626 132544 MOV = #10. BUF ,@ML .REG+20 ; 7978 
17548 062666 ADD CRS ; *, ARR. SEL 7979 
17549 06266 MOV REG+30 : ARR.SEL,* 7980 
17550 06267C 132506 MOV REG ; 7981 
7 6267¢ 2s: nov 1 3 *, SSTMP2 7985 
17583 0627C 6 mov LSDLY.R2 ; *,SSTMPI 
17554 06271 1 BEQ $ 
17555 06271 5 4$: CLR 4(SP) ; SSTMP 
17556 0627 5 DEC R ; $STMP1 
17557 06¢ 001374 BNE 
1g ; 6¢ 005501 5$: DEC HI ; SSTMP2 
17560 062726 017767 132702 132606 6$: MOV ; 7986 
17561 06¢ 00526 INC ; WRDS.TSTED 798 
1 6 2 0500 CLR * CNT 7989 
17563 7$: MOV ; CNT,* 7991 
17564 ASR 
1? ¢ ASR 
17566 ASR 
> > : MOV 
4 55 MOV 3 CNT,* 
& . BIC 
15 MOV 
rs CLR 
: JSR 
P3724 06 ADD | 
7576 ¢ eM 
A 
17 MOV 2, RI : CNT, 7995 
17578 ASL a | 
S75 (R1) ,PC 
P28 8$: - WORD 
7381 «WORD 1 
¢ -WORD 1 
8: -WORD 1 
7584 ( -WORD 1 
1258 «WORD 1 $ 
1758 -WORD  18$-8$ 





ee 


innintnihebliiitasiltinniiaaeant ae 
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C2 ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE $00 
$1 ht: 
a EST CODE SECTION SEQ 0373 
ML4AD r=19P2 16:23: | 
if : TEST CODE SECTION 5? a ad hi ne oe 
6 30 H0C | | 
19338 . iC 00879 98 Rs ARR. CNT 7999 
1759% 063042 062701 1777 #177760.R1 . re 
i otis M677 000017 132520 #17. QML .REG+170 
Y 
1g 0 056 4h of 10$: R3,R1 ; ARR.CNT,* 8002 
1 163062 006 01 a 
V2 iV Nhl Ve 01 RI 
17 6 506 f NOE 01 4 
17 163070 042701 177417 #177617 
4 06307 14 360 132472 #360, aml REG*170 
17604 0631 150177 466 11$: R} aL .REG+170 
17 en 306 0) 12$: asia : ARR.CNT,* ee: 
7 06: rf 1 170377 #170377,R1 
12 ts D4 ¢ 4 007400 132446 #7400 @RL .REG+170 
"é ‘ 5 ] = 
1061) 063129 010501 138: ; ARR.CNT,* 8008 
4 Né N06 301 
176 6 ! NE 01 
176 6 1 06 01 
176 § 06: 14 06 01 
1Pel8 968186 SeBeer $9000 132416 
} : 3 5 050177 152ae 148: 
y re 163164 N10 1 15$: R1 : ye 
1766 063166 v4 i 177760 BIC #177760,R1 sli sista —_ 
1764 et M5 466645 000017 132404 BICB #17 @AL .REG+200 
+ Cle ” 4 a & - 
17629 O6se0e OIC 01 16S: MOV ; ARR.CNT,* 8014 
1762 Pi $7, NA 01 ASL ] 
Pe? 063206 006301 ASL 
i 5¢ 16321 fi 8 ASL RI 
. 06 3¢ 3701 177417 Bic #177417.R1 
631 063220 132356 BICB #360, aML.REG+ 
VnS82 Sessee 1S6icr T9BRBB "32356 pg, Bie ARGU ant negsz00 
! 4 vay 7 hie 1 e BR 2 i : 1995 
176 nat ¢ 010301 : 18$: MOV. JR ; ARR.CNT,* 8017 
17636 06324¢ me 101 170377 BIC #170377,R1 
1785 a 8777 007400 132332 Bic #7400.aML .REG+200 
539 063254 010301 198: . MOV = R3RI 
17642 063262 006301 ASL sR 








7995 
8023 
8026 
8027 
8030 
8032 
8034 
8037 
8038 
a 
7971 
8044 
eheo 
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SEQ 0374 — 
TOPS | 
PA:< 


Sooner 1985 10:53204 
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COMLADO ML=11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 392 | 
$T32 TEST CODE SECTION SEQ 0375 







177 sML4AD 
172 : : TEST CODE SECTION 
1 ¢ 1 9S: TRAP 2 
17704 063 193999 131674 . BISB #40,aML.REG+40 
178 Ss? G1870e si i 
17707 0€ 1 7 131656 BICB 
1 0 150277 131652 BISB 
17708 0¢ 00 if CLR ; 
17710 063574 1 10 131722 BISB @ML .REG+120 ; 
17711 063608 012777 i 131604 MOV =. #400, AML .REG+10 ; 
17712 063610 012777 014022 131606 MOV #10.BUF ,aML .REG+20 ; 
17713 063616 266705 1301 ADD ARR. INC.R5 : 
cay 1636 oe? 131 MOV RS .@ML.REG+30 ; 
17715 063626 01 71 131550 MOV =-#7 1, AML .REG ; 
IFI6 Beiees Goren) me : 
17718 0636 16702 116250 : Moy —-LSDLY.R2 
17720 063650 005066 000004 32$: CLR ; 
1 1636 4 005 DEC R $ 
1 2 06 3¢ 5 001 ; BNE 99 ° 
17723 063660 005301 33$: DEC R1 
rose Nh SA6 NOC ¢ ae 31$ 
i 06366¢ D17767 131744 131450 348: MOY BL. REG+230, PD. TEMP 
17797 063674 O10001 35$: MOV RO .RI : 
17728 063676 006201 ASR R1 
1 ° NA? N06: 1 ASR Qi 
1 ' 1637. NY. 01 ASR R1 
17731 063 962701 015342 ADD = #PD. TEMP,R1 
Irs Gearle. Sis my as=ias 
17734 06: 042716 177770 BIC Ol (SP) ; 
17738 063720 ( ft 000001 mov #1 (SP 

> 063796 Of 5 
ie MEr82 Os376q 00000 mp i0se 

' +e t, +, BNE 
774 st 000020 131554 BIS8 # ML .REG+120 : 
17248 o83782 Soe80} a 
17744 06: 066107 063760 ADD (Ri) ,PC 

%63760 0000 36$: ~ WORD 

4 ° nee ¢ MOO ‘ WORD 

4i iv 7 2000; é “ WORD 

i< 766 D006 “WORD 4 

? 063770 00005; WORD 413 $ 
poecre = bupet ae 4 
1775¢ 068776 90010 “WORD 4 
1 164002 8 131566 37$:  MOVB a@ML.REG+170,R3 
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- Ve 
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t. +. 7%. +. ¢. +. +. + ¢ ++ +++ -¢-+-4¢-4-¢-¢ 4-4-4446 o 
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sMLGAD 


SSeS SSeS SSeS EES UAT GWAR engS aUaee Me hea uae se ayEy eae 


TEST CODE SECTION 










49$ 

Se -REGST70.RS 
@AL .REG*+170.R3 
@AL .REG+170.R3 
46$ 

aay REG*COO.RS 
@ML .REG+200,.R3 


pg REG+200,R3 
48S E 
@ML .REG+200,R3 


@ML .REG+160 ,R3 
R3 


#177760,R3 
#1, (SP) 
518 





= 


5288 





SRPATCAS 
Vain Bes 





: FND.GD.NIB,* 





SEQ 0376 — 
r-1982 16:23:06 Tops | 
ra1985 16:21:03 PA:< 
8078 
8081 
8084 
8087 
NUM 
NUM 
NUM 
NUM 
* ,ARR .NUM 8093 
* .ARR.NUM 8096 
ARR.NUM 
ARR .NUM 
ARR.NUM 
ARR .NUM 
* ,ARR.NUM 8099 
ARR.NUM 
* ,ARR.NUM 
*,FND.GD.NIB 
CNT 
CNT, * 


ARR. CNT ,ARR.NUM 
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its TEST CODE SECTION 
sMLGAD 
1781 i ; TEST CODE SECTION 
17815 0 MOV SP,RO : : SP,* 
17816 1oseis 14 . 
1781 062706 000022 ADD #22..SP : 
ais Sets = ae , 
1 ' 54$ 
B21 53$: MP 29$ 
: 32¢ fe _— 54$: R4 3 ARR.CNT 
17825 Ose 000002 55$: CMP Ré .2 (SP) 3 ARR.CNT,* 
17895 706 000006 56$: ADD #6.SP ; 
; 326 064270 08 RTS | 
at 3 : Routine Size: 425 wo 
3G : Maximum stack death 6 oe  teeentton: 18 words 
17835 
3140 7 132, “SBITL 132 TEST CODE SECTION 
17845 7 767 176252 1$:_ «JSR PC,$T32 : 
178 76 1064 TRAP 66 
178 ROR Ro 
178 : 1 BLO 1$ 
1784 000207 RTS PC 
1 se : Routine Size: 6 words 
: : Maximum stack depth per invocation: 0 words 
17838 
17859 ; 8122 !<BLF/PAGE> 


SEQ 0377 


39-marn1983 10 16: i: 203 Pare :< 
12, 


7924 


8119 


CZRLADO ML-11 LOGIC T 
T3532 TEST CODE SECTION 
17861 ;ML4AD r-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 
17862 : TEST CODE SECTION So par -1965 16:21:03 | PA:<NEALE>ML4AD.BL1.4 (85) 
178G2 23: | 
17865 : 124 BGNTST: 
17866 ; ; 5 ie 
17868 ; i TEST NUMBER: TST 33 
$70 : i TEST NAME: SEQUENCER EXISTENCE TEST 
17878 ; 131 | TEST DESCRIPTION: | 
17874 : 1 ¢ i TEST SEQUENCER TIMING AND CONTROL 
178 3 : 4 i LOGIC FOR EXISTENCE BY: 
178 i : 136: 1. FIRST WRITING THE GOOD BLOCK VIA DAT_DM MODE WITH A BACKGROUND 
178 8 : 137 | PATTERN OF ONES. | 
eee é i. ae 
1 381 ; 8140 ; 2. VIA A MBUS WRITE FUNCTION WRITE ONES INTO THE GOOD BLOCK. 
17883 : 14g 3. THEN VIA DAT_DM READ GOOD NIBBLES IN THE GOOD BLOCK AND XOR THEM 
17884 ; 163 AGAINST THE BACKGROUND PATTERN. | 
17886 : 8145 | RECORD THE NUMBER OF NIBBLES THAT WERE UNCHANGED OR PARTIALLY CHANGED 
1788 : g147 BY THE MBUS WIRTE. 
17889 ; 148 | 4. REPORT A FATAL ERROR AND DROP THIS UNIT IF THE NIBBLES TESTED EQUALS 
} 390 149 : THE COUNT OF UNCHANGED NIBBLES. 
17892 ; 151 REPORT AN INTERMEDIATE DIAGNOSTIC MESSAGE IF AT LEAST SOME NIBBLES 
1785 13e ) WERE CHANGED BY THE MBUS WRITE. | 
1785 : 134 IMPLICIT INPUTS: , 
397 : 13 A BIT VECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM. 
17899 ; 158 10_BUF: : eee , 
1789 : 13 A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTIONS 
17907 ; 160 ! ARE FOUND. | 
17902 ; 161 i-- 
a | 
7905 : 1 'BACK GROUND PATTERN 
17906 : 165 iSUM NIBBLE ARE BAD 
907 ; 166 INIBBLES TESTED 
7908 ; 1 1ALL NIBBLES ARE BAD 
17909 ; 168 iRESULTS OF XOR 
’ 210 5 ! | 
1 4 : 17 ‘BACKGROUND EQL ONES 
1731 3 1g 'LOAD DATA DIAG REG WITH BG PAT 
17915 : 17 











& 
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PRLADO ML-11 LOGIC T 
TEST CODE SECTION SEQ 0379 
17917 :MLGAD r=1982 16:23: TOPS=20 Bliss-16 v2(212) | 
17918 : TEST CODE SECTION 2 a att 18:53:08 PA:<NEALE>ML4AD.BL1.4 (85) | 
1 : DAT_DM_XFER (): ‘SET UP_A_DATA DIAG XFERR AT THE GOOD BLOCK 
} ; mLCS1 Wartes, iDO A WRITE FUNCTION 
1 ; : iner WD CNT from 0 to 127 do ‘WRITE BLOCK WITH BG PAT 
Ps n 
1388 BRAY Omi 
P} = 4 
; : ; 
1 : 
1 : 'LOAD FIRST WORD OF 10_BUF 
1 : IMAKE XFERR SET ON ONE ADRS 
1 : iSET UP A GOOD BLOCK XFERR 
179 : iDO A WRITE FUNCTION 
17935 : 
17989 | 
Hat 
17940 : ‘SET UP SAME DATA DIAG XFERR 
1339 : 1DO A READ FUNCTION 
1 : 
17944 ; iner WD CNT from 0 to 112 do 'READ 113 LONG WORDS 
e n 
17946 : PD TEMP = .MLPD: 'GET PROM DATA 
17967 : DAT_CLK = ONE: 'CLOCK OUT THE DATA WORD 
17948 : DELAY (ONE_US); 
! 49 } RD_LNG_WRD: READ THE DATA WORD 
1% ; incr NIB_PTR from 0 to 8 do LOOK AT 9 NIBBLES 
1% ; if -PD_TEMP C.NIB_PTR} eql ZERO 'FIND GOOD NIBBLE 
175 : in 
17956 : NIB. TSTED = .NIB_TSTED + 1: !INCREMENT COUNT OF NIBBLES TESTED 
957 ; XOR_LNG_WRD (.NIB_PTR, .8G_PAT, RESULT): | !XOR NIBBLE WITH BG PAT 
1 959 : if .RESULT<O, 4> eql ZERO !SEE IF ALL BITS IN NIBBLE WERE BAD? 
1 61 : else Att =BAD = .ALL_BAD + 1 'INCREMENT COUNT IF ALL BAD 
17963 : | 
} 964 ; if .RESULT<O, 4> neq %0'17" then SUM_BAD = .SUM_BAD + 1; 
1 66 : 'SEE IF SOME BITS IN NIBBLE WERE BAD 
17967 end: ‘INCREMENT COUNT IF SOME BAD 
17969 : end: | 
17970 ; 
17977 ;: ENDSUB; 


ee ELE Eee a 
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CZMLADO 
T32 TEST CODE SECTION SEQ 9380 
17973 :MLGAD 2o-Mar-1 16:23:04 § TOPS-20 Bliss-16 v2/212) 
ede. : TEST CODE SECTION rr1985 16:21:03 PA:<NEALE>ML4AD.BLI.4 (85) 
17976 ;: 
17977 : if .NIB_TSTED eql .ALL_BAD 'WHERE ALL NIBBLES XFERR"ED ALL BAD? 
17978 ; beg n = 1ERROR IF ALL BAD 
Ps n 
1 ; (84, SYNC, DUMPER): 
17981 : ERINTB (SEV FMT, WRD_22, PHR_4, WRD_9, WRD_12, WRD_23, FNC_S, WRD_19); 
} : DODU (. LON); 
1 : ; 
, 5; else | 
i : if .SUM_BAD gtr ZERO 'SEE IF SEE NIG@BLE WERE BAD? 
1 : begin 'SOME BAD IS OK SO GIVE INTERMEDIATE ERROR 
1 ; ERRDF (85, INTER, DUMPER); 
1799 : PRINTB (SIX_FMT, PHR_4, WRD_9, WRD_12, WRD_23, FNC_5, WRD_19); 
17993 : r 
Yas 3 ENDTST; 
1 -SBTTL $133 TEST CODE SECTION 
180¢ Oe 1 300 $733: JSR RI SSAVES : 8121 
18005 06 131120 ot ae ; | 8168 
18006 0¢ 131 bur RS 
18007 0¢ 1 #177770,R5 
18008 0¢ 131102 #7,@ML .REG+40 
18009 0¢ 1 R5 ail REG 0 
18010 0¢ 1 : 1,2(SP : *,BG.PAT 8171 
18011 0¢ 177777. 13121 #1, AML .REG+17 : : 17 
8012 06 131214 (SP) aM .REG+200 ; BG.PAT,* 1 
8013 O¢ 131166 (SP) aL .REG+160 : BG.PAT.* 174 
8014 0¢ 1 PC DAT.DM.XFER rr, 175 
18015 0¢ 1 130774 #61, aML.R : 1% 
18016 0¢ RO : WD.CNT 1 
18¢ 0¢ 000001 18: f RI : *, $$TMP2 180 
18¢ 06 115472 LSoLy.R2 ; *,SSTMPI 
3021 0¢ 000006 38: 6(SP) : SSTMP 
18 D¢ Re 3 : $STMP1 
1 D¢ 4$: FT ; SSTMP2 
st Je 
3026 06 000020 131054 5$: #20.0M. .REG#120 : 181 
18027 0¢ : WD.CNT B58 





a — 





nd —_—— ee 
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$T35 TEST CODE SECTION SEQ 0381 





























18029 ZMLGAD r-1982 16:23:04 TOPS 
18¢ : TEST CODE SECTION $o-mar=19 16:21:03 PA:< 
R032 06 R0.#177 ; WD.CNT,* 

18¢ g 130756 ; : 8182 
18¢ 6 O06 

18035 i’. I ° 8185 
186 ) 06 130722 ! ; 3186 
18042 0¢ 130650 #61 am. 8188 
18063 06 6$: @ML .REG+50 

18¢ ¢ 1 gs 

18045 0¢ 1 7S: ; 8189 
18046 0¢ 1 0 130672 BISB #40,@ML.REG+40 ; 8190 
18047 06 16703 131254 MOV ML. DUT ,R 

18048 06455¢ 177770 BIC = #17 76,23 

18049 064562 14 7 130654 BICB = #7, @ML .REG*+40 

18050 0¢ 377 130650 BISB R3,@ML.REG+40 
18051 0¢ CLR R4 ; ALL.BAD 8192 
18052 0¢ 1 CLR (SP) ; SUM.BAD 8193 
18053 0646 CLR RS ; NIB. TSTED 8194 
18054 0646 131604 JSR PC DAT.DM.XFER : 8195 
18055 06460 71 130570 MOV =_- #71 ,aML.REG ; 3136 
18056 064¢ 1 MOV 8s #1,R1 ; *,$STMP2 819 
18057 06462 8s: BEd 118 
18058 0646¢ 115270 MOV = LSDLY,R2 ; *,SSTMPI 

1 40 ; 064606 BE Q 1 0$ 
1806¢ ‘ 9646 3¢ 56 000006 9$: CLR ' 6(SP) 3; SSTMP 

1 NY. Nad é BNE 

8063 064646 10$: DEC R1 ; SSTMP2 

; 6 64 Se 8$ . 
18065 ¢ ene 11$ CLR RS ; WD.CNT 7 199 
18066 06464 1307 130466 : ant G+230,PD. TEMP : 8201 
18067 0¢ 1 BISB =: #20, aML .REG*+120 ; | 8202 
18068 06466; 1 #1,R : *,SSTMP2 820 
3065 646 5€ 138: BEG 168 
1807 06467 115222 MOV = =—s LSDLY,R2 3 *,SSTMPI 

307" D646 BEQ 15$ 
18072 06467¢ 000006 14$: CLR 6(SP) ; SSTMP 

18¢ \\. DEC QP e SSTMP1 
ie . BAE 14$ 

8075 06 153: DEC i. ; SSTMP2 
1B07? D¢ 130656 126454 16$: aM. .REG+170,D1. TEMP 

18¢ 8 d¢ 1 126450 mov aM .REG+2 Dg. TEMP 
18¢ i. 1 126444 MOV @Ml .REG+160,E2. TEMP 

3080 0¢ CLR 8 ; NIB.PTR $506 
18081 0¢ 17$: MOV R1,R2 ; NIB.PTR,* 8 
18082 0¢ ASR & 

18083 06 ASR R 





H 14 





z 

oo ] 

ae | 

m 
a ae * a 
* “us oe Sd 2 za x vw 
a =a « 4 2 ao aoe ® fre 
a Tee — eh ee fee WY 
a -oOc = = aa 22 be 
« > ° ® es Wey 8 eg 
@ oaoo.n”n Ww ~~ x Om --. @ ® 
oa e~—went(D Ws lu =) bon bog S$ ea a. 
z 2202 2 «& 4 " 22 a z ww 
aD ee *®e *e o& °e eee eee ee *6 ee ¢e6 ee ee 


TEST CODE SECTION 





SSEBLESSSDESERESIELHe boveveuepuSsceutses 





= 
SSSSeeeee 





ML4AD 


MACRO M1113 S3O-MAR-82 11:18 PAGE 





RRR SSS See RNAS SRASSEN 


. . . . ww CS . ol = =~ . 
NRRKRRRERSSSSSSygeN DiNNO< 


IOQOOSOOSSSSOSSSoc PP PD 8 OE Ee 








ee Se —~—- 


I 14 





MLADO ML~11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 400 

35 TEST CODE SECTION SEG 0383 
181 sMLSAD -1982 16:23: TOPS 
: ; ; TEST CODE SECTION r=4 16:57:93 PA:< 
181 MOV ML.LUN,RO ; 33 
181 TRAP 51 = | 
1 166 TRAP 
1814 ADD : 8230 | 
1 108 BR ; aces 

181 21$: TST 3 SUM.BAD 

1B The 21 

181 3 . WORD ; 

181 - WORD 

HEE aay” Biro. -cse w21 

1 136 MOV -5,-(SP) : 

181 MOV 27 (SP) 

1 138 MOV a7 (SP) 

181 MOV -9,~ (SP) 

181 MOV #PHR.4,-(SP) 

181 MOV #SIX. FAT .=(SP) 

181 MOV #7 ,~(SP) ) 

1816 MOV SP RO 3; SP,* 

1 Fe: TRAP 14 7 

181 ADD #20.SP s 8240 
181 22$: ADD #10,SP ; 8121 

: ; RTS PC 

1 199 ; Routine Size: 255 words 

: 100 : Maximum stack depth per invocation: 19 words 

1818 

: : : 133: -SBTTL T33 TEST CODE SECTION 

181 1$: JSR PC $133 : 8243 
181 TRAP 

181 ROR 

181 BLO 1$ 

: RTS PC 

181 3 Routine Size: 6 words 

181 : Maximum stack depth per invocation: 0 words 


ee ee een 
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CERLADO ML~11 LOGIC T 
T33 TEST C ON | SEQ 0384 


LOG! 
ODE SECT 


18308 
1 
18598 : 8246 !<BLF/PAGE> 


C 
I 


VIO Venus 


——— 


ene eee 








SL ee nate = 


EOS 
CERLADO ML~11 LOGIC TEST MACRO M1115 SO-MAR-82 11:18 PAGE 4 
153 TEST CODE SECTION SEQ 0385 


06 :ML4AD 16:23: TOPS-20 Bliss-16 veCe1e? 
; TEST CODE SECTION $5-nar=19 18:31:08 PA:<NEALE>ML4AD.BL1.4 (86) 


C 
I 








18209 : R267 | 
i i; ; sé BGNTST 
1 Ie ¥ 30 ' 
182135 ; 3251! 44 
! 18 : 3238 : TEST NUMBER: TST 34 
1 16 : 8 34 i TEST NAME: § SYNC DATA BUS CONTINUITY TEST (WRITE PATH) 
: 5256 i TEST DESCRIPTION: 
1 8 58 i TEST THE CONTINUITY OF THE 
1 3959 MODULE WRITE PATH 
60 DATA BUS BY: 





Oo 
—_ 





1. VIA DAT_DM MODE WRITE A 
BACKGROUND PATTERN OF ONES 


i 

1 

' 

' 

i 

' 

4 

‘ 

i 

i 

INTO THE GOOD BLOCK. 
; 2. VIA_MBUS WRITE FUNCTION 
4 
' 
j 
t 
! 
' 
4 
i} 
: 
t 





NOUS UNO Oo 


WRITE A ZEROES PATTERN INTO 
THE GOOD BLOCK. 





VIA DAT_DM MODE READ GOOD 
ees IN THE GOOD BLOCK FOR 


SLANT WT wt et et wt ut-ut et wt-et-ut-at-at-atat-atatatatetatebehctet: 








4 


hg WITH COMPLIMENT 
DATA AND BACKGROUND PATTERNS. 


IMPLICIT INPUTS: 
PD_TEMP 
Mek VECTOR OF 16 BITS WHERE 


AD PROM DATA IS STORED 
AND ACCESSED FROM. 








VOW NOUIS INI ODEO Ena 


wi 





Ne 


ys 
PIP IPIPIPOPIRIMOPIPOPRIPOP OR oR orale eee 2 8.9.20 GO O04 


> * * > *is 7 sate . 
WMS OONC 





+e +e 





Dl ld a ld a ee ed ed ed ed ed ed eed ed edd 


RANT NENT NT Nt Nt ut ut at at et at at et at at at et at et ot eh wh eh eh “eh 


> 
3 

5 + 

: 8294 local 
3 DODU_FLG, DROP UNIT FLAG 
3296 BG _PAT, 'BACKGROUND PATTERN 
356 


alan 





0 
SL See tssestesssssssssessesnssnnsisssussssssartensnsmnsmssmmnmeneeess,-...... i 
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MLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 403 
3 TEST C ECTION SEQ 0386 
18262 :MLGAD r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
1826 : TEST CODE SECTION a lat 16:57 08 PA:<NEALE>ML4AD.BL1.4 (86) 
18265 ; 
18266 : CLR_THRE 'CLEAR ERROR PRINT THRESHOLD 

18267 : DODD _FLG = ZERO: 
18268 : BG PAT = ZEROES: 'BG PAT EQL O'S 
1B¢ 8 TST_PAT = ONES: 'TST PAT EQL 1°S 
18271 : iner TWICE from 0 to 1 do ‘REPEAT LOOP TWICE 

: F n 
18978 ; : 
18275 : = .BG PAT: 'LOAD DATA DIAG REG WITH BG PAT 
182 26 : 10 BG_PAT: 
18277 : 11 MLE2 = .BG PAT: 
18678 ; 1 DAT_DM_XFER (): 'SET UP_A DATA DIAG XFERR AT THE GOOD BLK 
18679 : 13 MLCS1 = write; !DO A WRITE FUNCTION 
18¢ R1 : : 15 incr WD_CNT from 0 to 127 do ‘LOAD BLOCK WITH BG PAT 

8282 ;: n 
18283 ; 93 DELAY (ONE_US); 
18284 : 18 DAT_CLK = ONE: 
18¢ BS: 13 end: 
18287 : F CLR_MBUS; 
18288 ; 8 ¢ BAI~= ONE; !SET ON FIRST 10 BUF ADRS 
18289 ; 10_BUF = .TST_PAT; ‘FIRST IO0_BUF WORD EQL'S TST_PAT 
18290 : : 3 4 GD-BLK_XFER (J: | iSET GOOD BLOCK XFERR 
18291 : 8325 = write: 'DO A WRITE FUNCTION 
18: 2 ° R326 ME_OQUT_LOOP: | 
18293 ;: 8327 CLR_ABUS; 
18294 : : é DAT-DM_XFER (): SET UP_A DATA DIAG XFERR AT SAME BLOCK 
18295 ; MLCS1 = read: - 100 A READ FUNCTION 
18296 3 DELAY (ONE_US); . 
18298 ; 3 2 incr WO_CNT from 0 to 112 do !READ 113 LONG WORDS 

- -3& é >. n 
18300 ; 3 TEMP = .MLPD: 'GET THE PROM DATA 
18301 ; 3335 DAT CLK = ONE; iCLOCK OUT THE DATA WORD 
18302 ; 3336 DELAY (ONE_US) ; 
183¢ : RD_LNG_WRD; 'READ THE DATA WORD 
18305 ; 3 incr NIB_PTR from 0 to 8 do !LOOK AT 9 NIBBLES 
183¢ : , : if, -PD_TEMP C.NIB_PTR] IS_NOT_SET !FIND GOOD NIBBLES 
18305 : : in 7 
18: 19 : : 4 KOR. LNG_WRD (.NIB_PTR, .TST_PAT, RESULT): !XOR NIBBLE DATA WITH TST_PAT 
18312 : i if .RESULT<O, 4> neq ZERO 'SEE IF EQUAL 
182 18 : B 3 ¢ then . 
ele : t 3 THRESHOLD i COMPARE’ EMHOR PRINT THRESHOLD 
18316 : 8350 ERRDF (Ban SYNC, DUMPER): — 
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AG 
WW 
ww 
x 
“co 
a2 
4+ 
—t 
ar 
AS 
oe 





















iS | 18 sML4AD r-1 16: 3: TOPS-20 Bliss-16 ve(el2) 
< if: $ : TEST CODE SECTION 2 a lat 1303 PA: <NEALE>MLZAD_BLI.& (86) 
18321 ; PRINTB (FIV_FMT, WRD 24, WRD25, WRD_10, WRD_12, FNC_5); 
18322 : PRINTS (FMT-S, .TST_PAT, .RESULT, .NTB_PTR);~ 
18325 ; DODU_FLG = ONE; 
18325 ; 
5 18 $ end 
5 1é s 
V3 : end; 
1 : ENDSUB: 
18332 : if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU IS_SET 
i : 1AND EXITS TEST 
18335 : 
18 : “ CML _LUN); 
) 18339 ; 
18340 ; = not .BG PAT; 'COMPLIMENT BG_PAT 
18: 2 : eer PAT = not .TST_PAT: * COMPLIMENT TST PRAT AND REPEAT 
18343 : 2 
18; : ENDTST: 
16 .SBTTL $134 TEST CODE SECTION 
HE 165320 167 117266 $734: JSR R1,$SAVE5 : 
18: + 524 CMP =(SP) ,=(SP) 
18355 065326 130044 P.CNT : 
yeas ; ROY : Beare’ 
18358 06533¢ 2 177777 MOV = #1, R2 > *,TST.PAT 
18359 06! CLR ~(SP) ; TWICE 
1836C 0¢ 1$: TRAP : 2 ° 
18361 06534¢ 130070 BISB =: #40, AML .REG+40 ; 
18362 065354 01 13045 mov mur RS 
18363 06536C 17777 BIC = #177776, R5 
18364 06 4 130052 BICB «#7, @ML..RE 
18365 065372 150577 1 : BISB8 R5,aML.REG+4 
18366 065376 10177 13017 MOV R1,aML .REG+1 : BG.PAT,* 
8367 065402 010177 1 126 MOV R1,aML.REG+ : BG.PAT.* 
8368 065406 Wve 1 15 MOV R1, aM .REG+ : BG.PAT.* 
8369 0¢ 7? 130774 JSR PC DAT.DM.XFER ; 
1837¢ o f 1 127760 MOV asi. »REG per 
18372 06 000001 2$: MOV #1,R4 : *,$STMP2 


SEQ 0387 


=NOAUS Wha 
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-1982 16:23:04 TOPS 
18378 ome TEST CODE SECTION ra1982 16553 703 = PA:< 
} if ' 3$: 6$ 
1857 0654 .3¢ 114456 LSDLY.RS : *. SSTMP1 
J y O46 ' ; . SSTMP 
18380 063644 nes ™ ale > $STMPI 
1838 Dé ¢ S$: + : SSTMP2 
18383 06945. , 3 ” 
18385 06545¢ 000020 130040 6s: #20. ML .REG+120 tiie e318 
1838) ne 5466 000177 R3,4177 : WD.CNT,* 
18385 6 Hf 127742 #40, aM -REG*40 8319 
1s 9 04 Y 1 4 T,R 
18. 91 O06 f 1 
18392 06551; 127724 
1 9) Vé ' 1 ; 
18395 tins : TST.PAT,* : 
1837 0¢ t 1 127634 : 
1835 06555¢ 77 1 7$: 
18400 O6sse6 159707 127660 8326 
184 0¢ 167, 1s 
i Ne er 127662. | 
: : re +t, 5 OC : ,-Y ; a8 
IBS Wels ister Bl 76 se 
; 16562 ue 4 8$: , 
Né seh 5 05 114264 : &, SSTMP1 
dé 163: us 4C 9s: : $STMP 
BL 1> DES6L6 BOReRE Om > SSTMPI 
B12 06560 
41% 06564 108: RS : ; SSTMP2 
: Be rarege REG+230, PD. TEMP wee Re 
1656 $ oR “4 : 
3 nee 137688 i he " ; *,SSTMP2 
if 560 _ RS 3; *,SSTMPI 
‘ ‘. A‘, : . $$TMP 
et ay i SSTMP1 
2 65710 ; 
3 06: 6 ¢ 127652 125450 16S: @ML .REG*+170,D1. TEMP 
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SEQ 0389 
18 sMLGAD 1 16:23: ¢ 
1 : TEST CODE SECTION Sonera 1985 1e:se 08 | ToPs 
18633 06 917767 127654 1 MOV @ML .REG+200,D2. TEMP 
1 D¢ 917767 139636 138446 MOV @ML .REG+160.E2. TEMP 
18 O 90500¢ CLR RS ; NIB.PTR oe 
18436 0¢ 01040! 17$: MOV = R4,RS : NIB.PTR,* 1 
; Tat Se + + 4Eo$ pr Re 
1 ; ¢ i’. 106205 ASR BS 
18440 06 2705 015362 ADD = #PD. TEMP..RS 
441 O¢ ~(Sp)’ 
et ‘ 064 MOV Ras=(P) ; NIB.PTR,« 
R443 O6 . 177770 BIC #177770, (SP) nee ee 
184 0¢ i 000001 mov 1,=(SP5 
18446 0¢ 004 115634 JSR PC BLSGT2 
18647 066 06, 10 ADD =e #10, 
18443 46006 001¢ BNE 
1845C 10446 MOV R4,-(SP) : NIB.PTR,* 8344 
Ht 110 MOV R2.-(SP) : TST.PAT.* 
| 1 000012 MOV #12,-(SP) 
18 16061 ADD SP, (SP) : RESULT,* 
3 004 133044 JSR PC.XOR. LNG. RD 
18455 03 17 000012 BIT #17. 1e(SP) : *,RESULT 8346 
18 105267 1 INC CNT : 
1458 )2¢ 7 139336 127330 CMP P.CNT,LIMIT — 
3 0034 BLE —s«(18S 
oy ; i’. ‘’. ADD #6 SP 
1843 FRAP is 8350 
BLE WORD 126 ’ 
B46 MOV #FNC.5,=(SP) : 8351 
7 MOV #ARD.12,-(SP) 
MOV #URD.10.-(SP) 
MOV #URD.25.-(SP) 
: MOV WIRD .24.-(SP) 
7 MOV aF I (SP) 
| mOV SP’RO > SP,* 
i MOV 4, (SP) : NIB.PTR,* 8352 
7 MOV (SP) ,-(SP) : RESULT, * 
1 MOV R2,-(SP) : TST.PAT,* 
| MOV #FAT.5,-(SP) 
1é MOV #6,-(SP) 
i MOV SP, : SP,* 
3 - TRAP = ‘14 
1845 MOV #1. 36(SP) : *,DODU.FLG g 
1 ADD #26 SP ; 
18 ADD é : 


OO  ____ eee eet iets esttssemmantesiesteseratenetansnenmemsmmmee 
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SEQ 0390 


; 





1 7ML4AD -1 16:23:04 TOPS 

: $ TEST CODE SECTION Sart 16:21:03 PA:< 

1 20S: INC R4 ; NIB.PTR 339 

; 000010 ar neg" ; NIB.PTR,* . 

1 21$: INC R3 3; WD.CNT 8332 

1 000160 CMP R3,4160 3; WD.CNT,* 

1 BLE 128 

1 TRAP 6 ; 8358 
1 ROR R 

1 BHIS 

1 177120 $¢s: JMP 1$ 

: 000002 000001 23S: = oa 3 DODU.FLG,* 8362 
1 127570 MOV ML.LUN,RO ; 

1 TRAP 51 — 
1 TRAP 44 

1 24$: COM R1 ; BG.PAT 8370 
1 COM R2 ; TST.PAT 371 
1 INC (SP) 3; TWICE 305 
; 000001 4 se) of 7 3 TWICE,* 

1 000010 ADD #10,SP : 8245 
q } ' RTS PC 

1851 ; Routine Size: 243 words 

: : : Maximum stack depth per invocation: 24 words 

| ae 

: 46 (386: -SBTTL 134 TEST CODE SECTION 

1 767 177026 1$: JSR PC,$T34 | : 8372 
a 

1 7 BLO 1$ 

: 20 ; RTS PC 

} ; Routine Size: 6 words 

1 + Maximum stack depth per invocation: 0 words 
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134 TEST CODE SECTION SEQ 0391 
342 ;ML4AD r-1982 16:23: TOPS-20 Bliss-16 V2(212) | 
i : TEST CODE SECTION $3-mar=t 16:37:08 PA:<NEALE>ML4AD.BL1.4 (86) 
18545 ; 8375 !<BLF/PAGE> 


CELADO ML~11 L 
TEST CODE 


18348 3 sMLSAD 


See t et mnt end aad dh 


BS ISIN NOR: SESSLER UAT Sess 


ad el eh el cl cal nl ell cel el cal cee eel nel ld el cel el ee cel cel eed eld ceed ee end ond ond od cee ed ed ed ed eed ed ed eed eed 


ip 
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29-Mar-1982 16:23:04 § TOPS-20 Bliss-16 v2(212) 
TEST CODE SECTION So-Mar- 1985 16:21:03 | PA:<NEALE>ML4AD.BLI.4 (87) 
' 
BGNTST: 
544 


eb ead ond ond ceed exh oh wd 


0 
: 
5 
? 
9 
1 


Wis Wity 





: TEST NUMBER: TST 35 

: TEST NAME: § SYNC DATA BUS CONIINUITY /READ PATH 

i TEST DESCRIPTION: 

i TEST THE CONITNUITY OF THE SYNCHRONOUS MODULE READ 

DATA BUS BY: 

1. VIA MBUS WRITE FUNCTION WRITE ONES INTO THE GOOD BLOCK. 
2. VIA MBUS READ FUNCTION READ THE GOOD BLOCK FOR ONES. 
: 3. REPEAT WITH COMPLIMENT DATA PATTERN. 
: IMPLICIT INPUTS: 
Me 

| 

] 


A VECTOR OF os WORDS WHERE DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 





local 


DODU_FLG, 'DROP UNIT FLAG 

TST PAT, 'TEST PATTERN 

BG_PAT: iBACKGROUND PATTERN 
CLR_THRESHOLD: 'CLEAR ERROR PRINT THRESHOLD 
DODD _F ZERO: 


LG = 
TST_PAT = “ONES; 
BG_PAT = ZEROES; 


iner ruice from 0 to 1 do 


CLR_MBUS; 

BAI = ‘SET ON nna I0_BUF ADRS 

10 BUF = TST PAT; -FIRST I BUF ADRS GET TST PAT 
GD_BLK_XFER (J; : SET Up. A GOOD BLOCK XFERR 

MLTS1 = S urite: 'DO A WRITE FUNCTION (WRITES THE TST_PAT) 
gensOe: 


CLR_MBUS; 


— I0_CNT from 0 to 255 do 
O_BUF C.10_CNTJ = .86_PAT: 


GD_BLK_XFER (); : ‘SET UP A GooD BLOCK XFERR 
MLUS1 = read: 'DO A READ FUNCTION (READ THE TST PAT) 
TIME_OUT_LOOP: 


‘REPEAT LOOP TWICE 









‘LOAD I0_BUF WITH BG PAT 





SEQ 0392 





NE 
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134 TEST CODE SECTION SEQ 0393 

18603 :ML4AD 29-Mar-1982 16:23: TOPS-20 Bliss-16 V2(212) 
18604 ; TEST CODE SECTION 29-Mar-19 16:37:03 PA:<NEALE>ML4AD.BLI.4 (87) 
18606 ; 84 incr 10_CNT from 0 to 255 do !READ THE 10_BUF FOR TEST PATTERN 
18608 : : if -10_BUF [.10_CNT] neq .TST_PAT ‘SEE IF I0_BUF WORD EQLS TST PAT 
18610 : j n ‘ERROR AND SET DODU_FLG IF NEQ 
18611 : THRESHOLD; 'COMPARE ERROR PRINT THRESHOLD 
18 af ; ERRDF (87, SYNC, DUMPER): 
18613 : 5 PRINTS (SEV_FMT, WRD 24, WRD_25, WRD_10, WRD_12, WRD_23, FNC_6, WRD 19): 
18614 : PRINTB (FMTO2. .TST_PAT, .10_BUF C.IO_CNTJ, T.TST_PAT xor .10_BUF C710_CNTI)): 
18615 : DODU_FLG = ONE: 
1Bel? : ' 
18618 ; 0 ENDSUB; 
18620 : 2 if .DODU_FLG IS_SET DROP THIS UNIT IF DODU_FLG IS SET 
18621 ; ‘3 then s 
18698 ; 5 DOBU ¢.ML_LUND ; 
18624 ; DOCLN; 
18659 ; 8449 TST_PAT = not .TST_PAT: ‘COMPLIMENT TST_PAT 
186¢8 ; 8430 86. AT = not .BG_PAT; !COMPLIMENT BG_PAT AND REPEAT 
1865¢ ; 22 
19631 53 ENDTST; | 
1863¢ -SBITL $135 TEST CODE SECTION 
18640 ¢ 167 $735: JSR  R1,$SAVES : 
186 5067 127064 CLR P.CN : 
186 66: 6 CLR =_- = (SP) ; DODU.FLG 

36 177777 MOV =s_ #1, R1 : *,TST.PAT 
186 : CLR R5 ; TWICE 
18646 0 127112 1S: BISB #60,aML.REG+40 ; 
18644 1 127476 MOVs ML bur R3 
18¢ 3 1 2770 BIC «=: #177770, R3 

3645 4 127074 BICB #7 al REG*40 
1865C 20377 1 2 BISB = R3, @ML .REG+4 
18651 10 127062 BIS8 =: #10 ,aML.REG+40 ; 
1B65¢ ¢ 10167 149434 MOV = R11, 10. BUF ; TST.PAT,* 

365: 167 131 JSR GD .BLK.XFER : 
186 1 127004 MOV #61 aL -REG ; 
186 eee 127050 2s: iste av .REG#S 
186 104402 3$: TRAP ; 
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cZmADO Mi~11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 411 | 
$T35 TEST CODE SECTION SEQ 0394 | 



























186 *MLGAD r-1982 16:23:04 TOP 
1 ¢. : TEST CODE ““°TION Ye at Fs 16:21:03 PA:< 
18662 066410 152777 127026 BIS8 £460, aML.Ri +40 : 8418 
18663 066416 016703 12741 mL DUT RS 

1866 66 04 1 BIC #177770,R3 

18665 066 14 127010 BICB «=: #7, AML .REG+40 

if 56 066 15 1 B18 R3.@ML -REG+40 — _— 
1B66S 066442 10 | 43: MOV R2,R3 : IO.CNT,* 8422 
18 66 ASL ) 

186 66 ‘ 1 014022 MOY R4,10.8UF (R3) : 86.PAT.* 9621 
18672 066 000377 CMP R2,4377 : 10.CNT.* 
ise 66462 131624 OR PC .GD_BLK.XFER 8424 
18675 066466 1 126710 MOV #71, aML.REG : 8425 
18676 066é 9 Mh 5$: TSTB a@ML.REG+50 
186 6€ BPL 5$ 
18678 066 CLR R : 10.CNT 8428 
18 06¢ 63: OV R2.R3 : IO.CNT,* 84 
1868 26¢ 1 014022 ADD #10.BUF .R3 
1868 066514 ja in ),R1 3; *,TST.PAT 
18684 06¢ 126652 INC P.CNT : 8432 
1868 66 4 126646 126646 CMP P.CNT LIMIT 

tt Red ° 
ieee Oe WORD ; _ 
18685 Ak “WORD 
1 R490 DAé “WORD 
1869) D6¢ 10730 MOV =-(SP) : 8435 
18692 06¢ 1 226 MOV -(SP) 
18693 06¢ 1 66 MOV #WRD . 
18694 06¢ 10650 MOV #URD. 
18695 066 1 MOV #WRD . 
1888 reeds 19563 MOV aSEV. 
18695 6660 000018 MOV a0 =(SP5 

'S/L) Ube MOV SP.RO e SP,* 
187C MOV (R3), (SP) ; 8436 
18708 MOV R1,-(SP) : TST.PAT,* 
18704 BIC =. 2¢ SP), (SP) 
1 BIC R1 2( P) : TST.PAT,* 

3706 BIS (SP)+, (SP) 
187( MOV (R3) ,=(SP) 
18708 MOV = R1,=(SP) ; TST.PAT,* 

3705 MOV = #FAT.2,~(SP) 
18 MOV #4,-(SP 
1é MOV RO 3: SP,* 
1871 TRAP 
1871 000032 MOV #1,32(SP) : *,DODU.FLG 8437 
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$T35 TEST CODE SECTION SEQ 0395 











; Routine Size: 6 words 
> Maximum stack depth per lseicdibliiie 0 words 


NN 


SSASAS 


:MLGAD . r=19 TOPS 
1 : TEST CODE SECTION | r=19 ga 08 PA:< 
1% a 7$ -3°-3? : 10. CNT Ba38 
if 000377 7 R9.#377 : 10.CNT,* 

18 104467 8$: 67 : 8438 
1 , 1 a 

1 000001 (sp) #1 : DODU.FLG,* 8442 
Hy 6 127114 ML . LUN, RO ; 8445 
16 1 44 | 

16 101 9$: R1 : TST.PAT 8449 
18 R4 > BG.PAT 50 
1 ? R5 : TWICE 10 
1 000001 RS : TWICE,* 

18 1 6 177364 1$ 

18 136 10S: (SP)+ : 8374 
i 2 | : PC 

18735 : Routine Size: 145 words 

HL : Maximum stack éanth 6 per invocation: 20 words 

187 

187 song -SBTTL 135 TEST CODE SECTION 

189 767 177332 1$: JSR-  PC.$T35 : | 8451 
187 1044 TRAP 66 | 

139 g 1 aco ‘ | 

000207 RTS PC 

18 

1 

i 

18 


8454 !<BLF/PAGE> 


UE 
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SEQ 0396 


r=1 16:23: TOPS-20 Bliss-16 V2(212) 
3 a ad Fs 16: 1308 PA:<NEALE>ML4AD.BL1.4 (88) 





TEST CODE SECTION 






4455 
cg BGNTST: 
, 35 oe 

TEST NUMBER: TST 36 
! TEST NAL: RAM BUS ADRS COUNTER TEST /WRITE PATH 
i TEST DESCRIPTION: 
i TEST ABILITY OF THE RAM_BUS ADDRESS. 


COUNTERS TO LOAD/UNLOAD THE SKIP 
RAM DURING WRITE FUNCTIONS BY: 


1. LOADING A REPEATING COUNT OF 0 

TO 63 INTO THE NIBBLES OF THE 

; 2 FIRST 64 WORDS OF THE 10_BUF. 
th 2. VIA MBUS WRITE FUNCTION WRITE 


_ THE CONTENTS OF THE I0_BUF 
INTO THE GOOD BLOCK. 


3. VIA DAT_DM READ GOOD NIBBLES IN 
THE- GOOB BLOCK FOR THE UNBROKEN 
COUNT OF 0 TO 63. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
; 
i 
" ONCE A BAD NIBBLE IS ENCOUNTERED 
‘ 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: 
i 
i 
i 
t 
i 








++ 


—~> 


MASK THAT NIBBLE FROM FURTHER 


—- + 


4. REPEAT READING NIBBLES UNTIL 
113 WORDS ARE 
ARE MASKE 


i IMPLICIT INPUTS: 
PD_TEMP 
A BIT VECTOR OF 16 BITS WHERE 
THE READ 


DATA IS STORED 
AND ACCESSED FROM. 


~ + 


READ OR ALL 10 NIBBLES 





+. 


—?> 
> 


4 








woe med eed ore awed enh ced 
~O 


10_BUF 

A VECTOR OF 256 WORDS WHERE 
DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 





eek nl el cell cen cell cells onal eel cells nls anil eel cele cel cells cls cel ceil ely cell cll ee ce ee ed eed eed ee eed eed eed ed eed 


RAP WV ASOS GR AROS Se 


5 oo So So oe ee! 


xt xt xt xt x 


DODU_FLG, !DROP UNIT FLAG 


~. 


—_ 
Se eee _ 
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CMLADO ML IC T 
T35 TEST CODE SECTION SEQ 0397 

18827 ;ML4AD 16: 3:04  TOPS-20 Bliss-16 v2(212) 

18828 : TEST CODE SECTION 3 a at 7:21:03 PA:<NEALEDML4AD.BLI.4 (88) 

1883¢ P 3507 WRD_CNT, !WORD COUNT 

18831 : : NIB-IGNORE : bitvector [16]. 'NIBBLE IGNORE FLAGS 

18832 : ‘ERROR F 

18833 : ‘BAD NIBBLE COUNT 

18834 : iPASS COUNT 

188 5; 'NIBBLE PATTERN 

18837 : ‘CLEAR ERROR PRINT THRESHOLD 

18839 

1 RAL C : 

188 : noe CNT from ; to 63 do !LOAD 64 WORDS WITH REPEATING COUNTS OF 0-63 

1 r. : iner veg =cNT from -1 to 11 by 4 do !LOAD NIBBLES IN WORD WITH REPEATING COUNTS OF 0-63 

18845 : 8. -BUE [.URD_ (MT <0. 4> = .PAT_CNT + 13 ‘LOAD FIRST NIBBLE_IN WORD 

18846 : (10_BUF “UD , = PAT. ~CNT + @: L N N 

18847 ; (10- BUF -WRD 4> = CNT + LOAD T 

18848 : (10"BUF C.WRD AD=CNT 3, 4> = POAT. CNT + 4; LOAD F 

18849 ; WRD_CNT = .WRD_CN !INCREMENT TO NEXT WOR 

18850 : end: 

18 3 

18888 | 

18854 : 'SET UP A GOOD BLOCK XFERR 

i 855 ; 'DO A WRITE FUNCTION 

18857 : 

18858 : 

18859 : 

18862 : 'SET UP_A DATA DIAG MODE AT THE GOOD BLOCK 

1886; ; 'DO A READ FUNCTION 

18865 : 

188 ; hein | !LOOP UNTIL THE BLOCK IS READ OR 9 BAD NIBBLES FOUND 

18868 : PD TEMP = .MLPD:- 'GET THE PROM DATA 

18869 ; DAT_CLK = ONE: ‘CLOCK OUT THE DATA WORD 

18870 : DELAY (ONE_US);: 

18 : RD_LNG_WRD; 'READ THE DATA DIAG REGISTERS 

18873 : incr NIB_PTR from 0 to 8 do ‘LOOK AT 9 NIBBLES 

13 : begin 

18876 : if .PD_TEMP [.NIB_PTR] IS_NOT_SET 'FIND GOOD NIBBLES 

188 Z then 

13878 : begin 

1888 : if -NIB_IGNORE C.NIB_PTR] IS_NOT_SET 'SEE IF THIS NIBBLE FOUND BAD BEFORE 
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C ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 415 
135 TEST CODE SECTION SEQ 0398 
18883 :MLGAD r=1982 16:23: TOPS=20 Bliss-16 V2(212) 
18884 ; TEST CODE SECTION 39-Mar-19 16:33303 PA:<NEALE>ML4AD.BL1.4 (88) 
BBB6 ; 559 begin 
TT: 360 TST_LNG_WRD (.NIB_PTR, .NIB_PAT, ERR_FLG); !TEST THE NIBBLE IF NEVER FOUND BAD 
1888 if -ERRFLG IS_SET ‘SEE IF TEST FOUND AN ERROR 
1885 begin ‘ERROR AND SET DODU_FLG IS SET 
1885 THRESHOLD; ‘COMPARE ERROR PRINT THRESHOLD 
1885 ERRDF (88, ARR_DAT, DUMPER): 
18894 PRINTB (SIX FMT, FNC_18, WRD_SO, WRD_10, WRD_12, FNC_S5, WRD_19); 
1885 DODU_FLG = ONE: 


IRIN TISSAS ARS 


1889 3 end 
18899 ; 5 
18900 ; 5 end 
18901 : 5 else 'THIS NIBBLE IS BAD 
3902 : n 
18908 ; 57% NIB_ IGNORE C.NIB_PTRI = ONE: 'SET THIS NIBBLE NIB_IGNORE FLAG 
18904 ; 57 BAD_NIB_CNT = .BAD_NIB_CNT + 1; !INCREMENT BAD NIB COUNT 
1 ; 378 end; 
18907 : 5 NIB_PAT = .NIB_PAT + 1; INCREMENT NIB PAT 
18910 ; 3 PASS_CNT = .PASS_CNT + 1; !INCREMENT PASS COUNT 
1891 $85 until (.PASS_CNT eql 113) or (.BAD_NIB_CNT eql 9); !REPEAT UNTIL COMPLETE 
18914 587 ENDSUB; 
188 1 if -DODU_FLG IS_sET 'DROP THIS UNIT IF DODU_FLG SET 
5 : 
18918 ; 591 in 
18319 ; 32 poBu" (.ML_LUND ; 
185 34 end; 
185 96 ENDTST; 
> dé 
185 -SBITL $136 TEST CODE SECTION 
189% , 7 115626 $136: JSR RI SSAVES 8453 
1893: 1264 ie CLR = PENT 8512 
18° 4 CLR = =(SP) > DODU.FLG 8515 
18936 | CLR = RB. > WRD. CNT 8516 
18S CLR R2 ; CNT 8518 





Lt 15 



































SEQ 0399 
1:18 PAGE 416 23:04 ‘TOPS | 
11 LOGIC TEST MACRO M1113 30-MAR-82 1 S-mar-1985 16:91:08 PA:< 
ML- 520 
136 TEST CODE” SECTION zML4AD TEST CODE SECTION ; *,PAT.CNT 8522 
1894C 77777 1$: R3.R1 
1 “y. 1 ; ' 1 b . 
18945 967008 HO sa H10.8UF J + PAT.CNT,* 
188 067 069701 014022 ROAR 
. 8946 067¢ 10005 #177760,R5 | 8523 
bof Bs 2 04270 irre R5,(R1) + PAT.CNT.# 
eae oon Use Z11 0000 RO.R> 
+2 167¢ We, 
i 87986 942908 000002 ns 
196% Ae 063¢ R5 
1 + 06 30 
18954 0¢ 006305 7 77417.R5 8524 
18 Je + VETS j ) 
18956 067050 00630: 177417 RS RL) shinai 
18588 967085. 14 — RO-RS 
ROkG Ad 15¢ #3.R 
1 : ye nieee 4 
396 +; 00 3¢ #7400 (R 1) % 
3963 06 042711 007400 RO: 
189% n¢ saat #4 RS 
18966 067106 010003 RS 
18968 0¢ 006 3¢ Re 
a7 UC N06 7 J 526 
x6 4 0 NOE {i #170066° (R1) $350 
o> JC + re 7777 © WRD.CNT 
4978 0¢ 5711 170000 — : ®,PAT. CNT 
8976 06 ot 900004 ROM ; CNT 
| ; Dé 02 3 es ° CNT,* 85 27 
yy. ¥C vie as 
$A, + ib ’ 000077 2 : 
3981 0¢ ih 3$: #60, aML.REG+40 
398 re 126250 T Re 8531 
‘}. + 85 
18% i r2¢ , ae 126232 : 
¢- > $ 7 o 
B9B9 067216 00476 1 126154 ; 
189% 6 7¢ if 4$: 0. aML .REG+40 a 
; + , ' 
ROC I6 7 2 SU 44 é 
15998 gayssg |S i 000040 126200 





; 
a 


S33 c 





> 


+_+ 


_*.?.+_>_> + 
- “+> . et - 


wal el lh eh eld ed eh ce eth dd ce ed eed ed ed ee 
. . = - 


co cd ed ed ed ed eed ed 


> O08 NO. 


ed ce ced ed ed eed ed eed ed 
22220 


REEDS EEES 


el th eal ce cel cel el cel al cy el cel ey sel cel el ly lh cel meh lh el el cel cen eed een 
se ~ +> 
rors 


: de 
7, . ti. 
45: 

. ; 
y / . . 
; 5744 
44 
: 






a 


R252 


15 
01 


55— 
Se 
© 
Nm 


cenenen 
WW 
™ 

4 


> 


SRSVSs 


SN 
= i he | 


r+ 


~+ 
-¢. 
~¢> 
=> 


a1 
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126162 


126072 


772 
146 


ror 
AN 


138: 








5 


TEST CODE SECTION 


R 
PC DAT.DM.XFER 
#71 G 





@ML .REG+120 


@ML .REG+170.D1. TEMP 


@ML .REG+200,D 


aM .REG+160.E2. TEMP 


Rt RO 
RO 


R2,-(SP) 





-REG*+230 ,PD. TEMP 


NIB. IGNORE 
PASS.CNT 


NIB.PAT 
BAD .NIB.CNT 


; *,SSTMP2 
; *,SSTMP1 


3; SSTMP 
3; SSTMP1 


SSTMP2 


* , SSTMP2 
* ,SSTMP1 


SSTMP 
SSTMP1 


SSTMP2 


: NIB.PTR 
: NIB.PTR,* 


: NIB. IGNORE, * 


NIB.PTR,* 


59-ma 


r=1 
r=1 


988 


SEQ 0400 


16:23:04 
16:21:03 


TOPS 


PA:< — 


0 09 00 Co On Co Oo 
Pabst. ~her. tvs 


s 





N15 
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SEQ 0401 


sML4AD 1 16:23: T | 
3 TEST CODE SECTION a a 18; 1:08 os 
; NIB.PTR,* 


ae 

— 

s3 

~~ >. - Bm 
ASSESRS 
1 eax 

Se 

xe 

a 

oo~ 

a 

Vw 

ee 


WU 
IAD 
_ 
_ 
Sz 
=5 
on 


Oho 
SSeS 
3 : 
So 
58352 
& 
=<~b 
o<«c 
» ¢ 
i~ 
om 
~ 
vw 
eat 
_ 


oa 
NNEN 
—— 
aba 
oO 

z 

“ 


on 
Oo 


ot. t. Sv Wt tw t-te te te te 
at oo ele . 





> 
om) Tr) 


17$ 
R1,~(SP) : NI6B.PTR,* 
R3,~(SP ; NIB.PAT,* _ 


SP, (SP) : ERR.FLG,* 
PC, TST.LNG.WRD 
at #1 ; ERR.FLG,* 8562 


~ taal 





as 


000001 


+. 4%. ¢. +. +? 


ae 


_= 
é 
nN OO 
i 
S 


125576 


P.CNT 
P.CNT LIMIT 
14$ 


Ac 





pul 





s85%9 





14$: 





AOGOOORanoaaaaaaas- 





: 8567 








ct. ef. ¢. tt. tt. t,t. ¢. + 4. 


: SP,* 
; *,DODU.FLG 





000026 
15$: 


S5*555 3888255532 


Pee Sete eee 
AOwo 


; NIB.PTR,* 


= 
o 


BAD .NIB.CNT 
NIB.PAT 
NIB.PTR 
NIB.PTR,* 


PASS: ENT.* Sage 





Bas 


we Ge Ge Ge Se 





cally 
x 
ee 
Cy Door Besay ome €.., 
Gee gzzczces 





B 16 
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736 TEST CODE SECTION SE@ 0402 
19107 :ML4AD r-1 16:23:06 TOPS 
4. $ TEST CODE SECTION r-1 16:21:03 PA:< 
191 BEQ 19$ 
1911 000011 CMP R511 ; BAD.NI8.CNT,* 
19112 0¢ BEQ 198 
1911 177350 JMP 
1911 19$: TRAP 
1911 ROR 
ii vr es 
1911 00000" 208: oe #1 ; DODU.FLG,* 8589 
1 126012 MOV LUN,RO : 8592 | 
1 TRAP 51 
1 TRAP 44 
1 000010 21$: ADD #10.SP : 8453 
19124 RTS = PC | 
1 § ; Routine Size: 276 words 
4 : Maximun stack depth per invocation: 21 words 
191 
13 136:: -SBTTL 136 TEST CODE SECTION 
19} 767 176724 1$: JSR PC,$T36 : 8594 
13) TRAP | 
ROR R 
BLO 1 
20 RTS PC 


; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 


ed eed ed eed eed ee 


an 
ooo 


td th dd 
NOUNS Ot NOU Rus 


8597 !<BLF/PAGE> 


RUA 


. > : ; + 


om ~~" ~ a se e . 


> 


~ 


ITN 


On 
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ON SEQ 0405 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BL1.4 (89) 





TEST CODE SECTION 



















598 
8599 

R606 BGNTST; 

3601 

B6C $44 

B6C : TEST NUMBER: TST 37 

R605 i TEST NAME: RAM BUS ADRS COUNTER TEST /READ PATH 

3607 ; TEST DESCRIPTION: 

R609 i TEST ABILITY OF RAM/BUS ADRS 

R610! COUNTERS TO LOAD/UNLOAD THE SKIP 

5611 RAM DURING READ FUNCTIONS BY: 

518 i 1. LOADING A REPEATING COUNT OF 0 

R614. TO 63 INTO THE NIBBLES OF THE 

8615 ; FIRST 64 WORDS OF THE 10_BUF. 

e1S i 2. VIA MBUS WRITE FUNCTION WRITE 

B61 : THE CONTENTS OF THE I0_BUF 

8619 INTO THE GOOD BLOCK. 

3 € : 3. CLEAR OUT THE 10_BUF 

R623 4. VIA MBUS READ FUNCTION READ 

R624! THE GOOD BLOCK FOR THE REPEATING 

625 | COUNT OF 0 TO 63. 

4627 IMPLICIT INPUTS: 

4629 10_BUF 

i631 : A VECTOR OF 256 WORDS WHERE 

3¢ ¢ | DATA FOR MBUS READS AND WRITE 

86; FUNCTION ARE FOUND. 

R635 i== ed 

B43) 

BA ze ‘DROP UNIT FLAG 

BA 3c iWORD COUNT 

x IPATTERN INCREMENT 

z iSIZE EXPRESSION 

z iPOSITIONAL EXPRESSION 
z 'TEMPORARY STORAGE LOCATION 
i Q CLR_ THRESHOLD; , : 'CLEAR ERROR PRINT THRESHOLD 
a4? DODD_FLG = ZERO: 

J. é WRD_CNT = ZERO; 


Se me 





16 















CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE ret 
136 TEST CODE SECTION SEQ 0404 
19215 :ML4AD r-1982 16:23:04  TOPS-20 Bliss-16 v2(212) 
1s 16 ; TEST CODE SECTION 71982 16: 1:03  PA:<NEALEDML4AD.BLI1.4 (89) 
1s 18 ; 3650 incr COUNT from 0 to 63 do ‘LOAD 64 WORDS WITH REPEATING (COUNTS OF 0-63 
1s ; : 5636 incr PAT_CNT from -1 to 11 by 4 do !LOAD NIBBLES IN WORD WITH REPEATING COUNT OF 0-63 
15 é : 5654 -WRD_CNT])<O, 4> = .PAT_CNT + 1; !LOAD FIRST NIBBLE IN WORD 
19223 : 8655 -WRD~CNTI) <é 4> = .PAT~CNT + 2: iL NIBBLE IN WORD 
15 4 : 3696 WRD-CNT)<8 = .PAT-CNT + 3: ‘LOAD THIRD NIBBLE IN WORD 
19225 : B65 C-URD 5M cle. "hes -PAT_CNT + 4; 'LOAD FORTH NIBBLE IN WORD 
1s ; y. 2 .WRD_CN 'INCREMENT TO NEXT 
19229 ;: 8661 GD 'SET UP A GOOD BLOCK XFERR 
15 : g066 MLts 'DO A WRITE FUNCTION 
19¢ ; R663 TIME aus. 
19233 ; 3665 
19 ; 3666 incr 10 CNT from 0 to 255 do 'CLEAR OUT I0_BUF 
138 a gOe I 0_Bur C.10_CNTJ = 7EROES: 
19237 ; 3665 
19238 : 'SET UP A GOOD BLOCK XFERR 
19 ; 'DO A READ FUNCTION 
193 i : 'FIELD SIZE FOR NIBBLES ALWAYS 4 BITS 
8 43; g WRD-CNT = 0: 
19368 : Sr? incr COUNT from 0 to 63 do !READ 64 WORDS IN 10_BUF 
19 $7 : 8679 iner PAT. CNT from -1 to 11 by 4 do 'READ REPEATING COUNTS OF 0-63 
13 5 : 368 Poe E _EXP = ZERO: 'FIELD SELECTOR SELECTS THE FOUR NIBBLES 
1 : R6E ‘PAT-INC = ONE: 
19251 ; 368 TEMP = .10_BUF C.WRD_CNTO: - 1GET A WORD OUT OF 10_BUF 
i : B6E incr a... # from 0 to 3 do 'READ THE FOUR NIBBLES IN WORD 
5c6 ° Tt 
9256 ; R688 if .TEMP<.POS_EXP, .SIZ_EXP> neq (.PAT CNT + .PAT_INC) 
4 ; 3685 os ™ ‘COMPARE NIBBLE WITH RESPECTIVE 0 -63 CNT 
% . MY WE en 
19259 ; 365 in 'ERROR AND SET DODU_FLG IF NEQ 
19260 ; BC Q ‘COMPARE ERROR PRINT THRESHOLD 
19261 ; 3¢ ERRDF ARR_DAT, R); 
1966 : ae PRINTB “tSix FMT, FNC_18, WRD_50, WRD_10, WRD_12, FNC_6, WRD.19); 
9263 ; 8695 DODU_FLG = ONE; 
565 869 . 
9266 : 3698 POS_EXP = .POS_EXP + 4; {POINT 10 THE NEXT NIBBLE IN WORD 
9267 ; 3695 PAT_INC = .PAT~INC + 1: ' INCREMENT THE 0-03 C 
195¢ 5° A’ end; 








PAGE 422 









29-Mar-1 


2 Ali 16: 3:04 


:21:03 


‘GET THE NEXT I0_BUF WORD 


‘DROP THIS UNIT IF DODU_FLG SET 


CEMLADO ML=11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 
T36 TEST CODE SECTION 
19271 ;ML4AD 
1s re ; TEST CODE SECTION 
19274 ; 7 WRD_CNT = .WRD_CNT + 1; 
13 ie ; tS end; = 
1s 7 ; 705 ENDSUB: 
19279 ; if .DODU_FLG 1S_SET 
19280 ; Ao then —~ * 
1 a 
19282 ; Z10 (.MIL_LUND ; 
a eee 
19285 ; 18 ‘ 
19886 ; 714 ENDTST; 
1925 -SBTTL $137 TEST CODE SECTION 
13892 070044 004167 114542 $137: JSR 1, $SAVES 
19696 070050 1627 1 SUB ss #12, SP 
19297 070( 067 125316 CLR —s- PCT 
19298 070060 1 0 125356 BISB 
19299 070066 016705 40 MOV 
19300 070% 2705 177770 
i iC 0076 6 of 7 125340 
193 70116 105066 10 
19805 070120 905008 
19306 070122 012703 177777 1$: 
19807 970126 916604 000002 2s: 
19309 070134 062704 014022 #10.BUF ,R4 
19 " ah ‘ 0305 Ogu 
19812 Ofo1es 043708 177 #177760,85 
19313 070130 148714 000017 #17, (R45 
Iai Seuies she ie 
19516 01 $0 062705 000002 BRS 
1 701 56 CC 1063 R5 
19320 070192 Ooeses RS 
21 O7C oe OeR 177417 #177417 ,R5 
22 07020 4 000360 #360, (R4) 
9 f ys ’ : Ne Re “(RAD 
19358 990595 819968 00003 #3.R5 





DODU.FLG 
WRD.CNT 
COUNT 

* PAT.CNT 
WRD. CNT, * 


PAT.CNT,* 


PAT.CNT,* 


; PAT.CNT,* 





TOPS-20 


oe ty v2(21 


PA:<NEALE>ML4AD.BLI.4 ( 


SEQ 0405 


8655 


8656 










7 


—y 
DOODOOOO 


2.0.000000000000 
SSR RUIN 


in 


ed eed ed ced eed eed eed ceed eed eed 


Pr OWN Pro 
al 


?. 

6 
?. 

re. 
P26 
oY | 
TA 


a On }-4?-4}-4?}-4+-4?-4+-<@ 
SOs “IGA Lh 





CZPLADO ML=-11 L 
$137 TEST CODE Se 


IC TEST 
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125062 


125062 
125044 
124766 
125012 


124774 
000006 


sML4AD 


4$: 
5$: 





16 


TEST CODE SECTION 


R 
#170377,R5 
R4) 


8 am 

oe “nue 

gem 

RSRG 

10.BUF (R4) 
A377 

#40 et alia 














471 ,@ML. 
@ML .REG+S 
#40, aML .REG+40 
ML R4 


PAT.CNT,* 


WRD. CNT 
* ,PAT.CNT 
PAT.CNT,* 


COUNT ,* 


: IO.CNT 
; IO.CNT,* 


* ,SIZ.EXP 
WRD. CNT 


OUNT 
*,PAT.CNT 
POS .EXP 





39-mar=1 


ee —— 


SEQ 0406 | 
16:23:04 T | 
18:37 .08 te | 

8657 






















6 16 
2M ADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 424 
$i27 TEST CODE SECTION SEQ 0407 
1 sMLGAD 1 16:23: T | 
: TEST CODE SECTION oar! 18; 3:88 Patz | 
1 12716 1 MOV #1. (SP) : *,PAT. 
1s 1 2 nov 2(SP) Re : waD CNTs ty | 
1936 1 014022 000004 MOV 10.BUF (R4) ,.4(SP) | 
193 1 000004 9: OY USP).<(SP) tH 
1936 1 : MOV R5,-(SP 
1935 116646 000012 nov 12(SP) ,=(SP) 
1935 004 $7 112752 JSR PC BLSGT1 
16 5 neers ; mov RS Re > PAT.CNT.* 
19398 16160 ADD (SP) .R4 : PAT.INC.® 
19395 92006 a Ré [2 
194( 001441 10$ 
194C 05267 124616 INC P.CNT : | 8691 
13686 926767 124612 124612 CHP PSCNT LIMIT 
194( 1C 33 TRAP 455 : 8693 
1 00131 -WORD 131 
194 1 3¢ -WORD ARR.DAT 
1 26 ’ e WORD K 
1 112746 010730 MOV #WRD.19,=(SP) : 8694 
1 112746 OF 226 MOV #FNC.6,-(SP) 
19410 12746 01 MOV .12,=(SP) 
1941 12746 01 MOV #URD.10,-(SP) 
1941 12746 011270 MOV -50,-(SP) 
1941 12766 12414 MOV #FNC.18.-(SP) 
1941 12746 01 MOV #SIX. FAT. =(SP) 
19416 16606 MOY SP’RO™ sp,s 
19417 104414 : TRAP ‘14° pilot 
1 18 127 1 000030 MOV #1,30(SP) : *,DODU.FLG 
1941 0627 20 ADD #26 $P : | 
1 0627 10S: ADD 4&#64,R ; *,POS.EXP 
194 0G 8 (SP) : PAT. INC 
020 i 000003 Ro 43 ; CNT,® 
isos Grovee Seg Gunns 118 _. LEN 
} 2 13 RS.A13 | ; PAT.CNT,# 
1 105201 R1 RS : COUNT 8677 
194 a 000077 1.477 : COUNT, * 
194 10446 67 ; 8703 
194 1036 i | re 
194 5 0266¢ 000010 000001 10(SP) a1 ; DODU.FLG,* : 8707 
19% 916700 125064 ML.LUN,RO : 8710 
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sMLSAD 

; TEST CODE SECTION 
TRAP 51 
TRAP 44 

12$: ADD #12,SP 
RTS 


; Routine Size: 229 wo 
: Maximum stack depth 6 ce  dnsneattons 


-SBTTL 137 TEST CODE SECTION 


T37:: 
1$: JSR PC $137 
TRAP 66 
- RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 words 
> Maximum stack depth per invocation: 


8715 !<BLF/PAGE> 


19 words 


0 words 


$o-mar=1983 


SEQ 0408 
16:23:04 TOPS 
16:21: O53 PA:< 


8712 





I 16 
MACRO M1113 30-MAR-82 11:18 PAGE 426 
SEQ 0409 





1 : so _ner-18 16:23: TOPS-20 Bliss=-16 V2(212) 
: 7? TEST CODE SECTION o-har 1965 16:53.98 PA: : NEALESML SAD BN 4G $50) 
; 

BGNTST; 


S44 


TEST NUMBER: TST 38 

! TEST NAME: § SYNC DATA BUS BIT UNIQUENESS TEST/WRITE PATH 
i TEST DESCRIPTION: 

i TEST SYNCHRONOUS DATA BUS FOR 


REL 
Seoeee 


SSLESE 


DATA BIT UNIQUENESS BY: 


1. LOADING THE FIRST 16 WORDS IN 
THE I0 BUF WITH A SHIFTI 
ZERO IN A FIELD OF ONES PATTERN. 


2. VIA MBUS WRITE FUNCTION WRITE 
SHIFTING PATTERN THROUGH THE 
DATA BUS AND INTO THE GOOD 


KELLER 


3. 







VIA DAT_DM MODE READ THE 
GOOD BLOCK AND SAVE ALL GOOD 
NIBBLE DATA, IN THEIR PROPER 
SEQUENCE, INTO A STACK 
STRUCTURE. 


SHIFTED DATA PATTERN. 
i IMPLICIT INPUTS: 


TEMP 
A A BIT VECTOR OF 16 BITS WHERE 
THE READ PROM DATA IS STORED 
AND ACCESSED FROM. 





" 


A “ECTOR OF 256 WORDS WHERE 
DATA_FOR MBUS R 
FUNCTION ARE FOUND: 


S AND WRITE . 





STACK 

A VECTOR OF 198 BYTE LOCATIONS 
WHERE GOOD NIBBLE DATA IS STORED 
WHEN STRIPPING AWAY BAD NIBBLE 
LOCATIONS OF A BLOCK. 





i 
i 
i 
i 
i 
i 
i 
i 
i 
t 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
; 
4. INTERRIGATE STACK STRUCTURE FOR 
i 
i 
i 
i 
i 
i 
i 
‘ 
: 
( 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


oe = oe 
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7 TEST €C CTION SEQ 0410 
19536 :MLGAD TOPS-20 0 Bliss=16 v2(212) 

} ; TEST CODE SECTION PA:<NEALE>ML4AD.BLI.4 (90) 
1 Y 768 Hote ‘ 
1 : 769 

19541 ; 0 loc 
1 : 771 STORES THE SHIFTED BIT PATTERN 
19543 ; ie ‘DROP UNIT 
1 : iNIBBLE PATTEAG 
19545 : 77% iTEST PATTERN 
1 : 775 ‘HOW MANY ‘17° NIBBLE PATTERN POSITION TO READ 
1954 : 276 ‘HOW MANY '17° NIBBLE PATTERN POSITION TO READ 
1 g : 'STACK POINTER 
19850 $ Ad 'COUNTER 
! 1: f CLR. THRESHOLD; ICLEAR ERROR PRINT THRESHOLD 
1oee$ CLR ABUS: | 
19554 7 FLG = ZERO: 

5 TST “PAT = ONE; '0ONE IN A FIELD OF ZEROES 
19857 incr CNT from 0 to 15 do 'WRITE 16 WORDS WITH SHIFTING 0 IN FIELD OF 1°S. 

19886 1O.BUF_C.CNTJ = not .TST_PAT; 

IST. PAT = .TST _PAT*ONE; 

1 
} K_XFER (): 'SET UP A GOOD BLOCK XFERR 
: mtsi= = mite: | iWRITE SHIFTING PATTERN THROUGH SYNC BUS 
1 STRIPCER (2h. "8): ‘CALL ROUTINE TO STRIP OUT BAD NIBBLE DATA FROM ARRAY WORDS 
1 STK_PTR = acd * ‘RESET THE STACK POINTER 

NIB“BIT = On iSHIFTING NIBBLE PAT OF 1 IN FIELD OF O'S 
L ONES. 1 'READ NO '17° NIBBLE PATTERN ON FIRST PASS 





AL 
ALL_ONES~ ‘READ THREE ‘17° NIBBLE PATTERN ON FIRST PASS 





1 incr BY tall from 0 to 3 do 'READ 4 GROUPS OF 4 WORDS 
’ begin 
1 iner BY .ONE_WRD from 0 to 3 do 'READ 4 GROUPS OF 1 WORD 

; n 
1s COUNT = ZERO; | 'CLEAR COUNT 
i until na eql .ALL_ONES_1 do 'READ X NUMBER OF ‘17° NIBBLE PAT 
1S COUNT = .COUNT + 1: ‘INCREMENT COUNT 
1s STK_PTR = .STK_PTR + 1; ! INCREMENT STACK POINTER 
i . + is (.stack C.STK_PTR]) neq %0'000017° !COMPARE STACK WITH ‘17° 
1S no ‘ERROR AND SET DODU_FLG IF NEQ 
15 HRESHOLD; !COMPARE ERROR PRINT THRESHOLD 
15 ERRDE (90, SYNC, D 
15 PRINTB (SIX_FMT. WRD y * WRD WRD 12, FNC_5, + 
15 PRINTB (FMT_5, ONES,~.stack or 3H Pr PPTRI. .STR_PTR): 


eee - 


Se re cee 


7 —_ LE a 


K 16 
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137 TEST CODE SECTION SEQ 0411 

19592 :ML4AD 29-Mar-1982 16:23:04 § TOPS-20 Bliss-16 v2(212) 

19993 ; TEST CODE SECTION 29-Mar-1982 18:53:98 PA:<NEALE>ML4AD.BLI.4 (90) 

19595 ; DODU_FLG = ONE: 

19 : end; 

19808 $ 

1esne $ end; 

19600 : STK_PTR = .STK_PTR + 1: ' INCREMENT THE STACK POINTER 

19601 SAVINIB = ( not .NIB_BIT) and (%0'000017"): 'GENERATE THE SHIFTED BIT 

1 ¢ if (.stack C.STK_PTR]) neq (.SAV_NIB) !COMPARE STACK TO SHIFTED BIT 

en 





Bete Ge Ge Se Se Pease Ge Se Se 


Go 69 99 69 99 63 69 68 69 
Seorncusus cosas 












19806 ‘ERROR AND SET DODU_FLG IF NEO 

1 THRESHOLD: ‘COMPARE ERROR PRINT THRESHOLD 

1 ERRDF (91, SYNC, DUMPER): 

1 PRINTB (SIX_FMT, WRD_23, WRD_39, PHR_4, WRD_12, FNC_5. WRD_19); 

1 PRINTB (FMT~15,.STK~PTA): 

19610 : PRINTB (FMT_5, .SAV_RIB, .stack C.STK_PTR); 

19611 : DODU_FLG = ONE: 

re - 

19614 : 8839 COUNT = ZEROES: 'CLEAR COUNT 

19616 : 8841 unt iL - COUNT eql .ALL_ONES_2 do 'READ X NUMBER OF '17° NIBBLE PAT 

; n : | 

19618 : § COUNT = .COUNT + 1; ‘INCREMENT COUNT 

19619 : 4 STK_PTR = .STK_PTR + 1; VINCREMENT STACK POINTER 

196 : 8846 if (.stack C.STKPTRI) neq %0"000017" 'COMPARE STACK POINTER WITH ‘17° 
IC b en 

19658 : 8848 ‘ERROR AND SET DODU FLG IF SET 

19624 : 9 THRESHOLD; 'COMPARE ERROR PRINT THRESHOLD 

19625 : 8850 ERRDF (92, SYNC, DUMPER): 

19¢ 6 : 51 PRINTB (SIX_FMT, WRD_23, WRD_39, PHR_4, WRD 12, FNC_5, WRD_19); 

19627 : 885¢ PRINTB (FMT-5, ONES, ~.stack [.STK_PTR], .STR_PTR); 

19628 : 5 DODU_FLG = ONE: 

19629 : R854 ; 

19630 : 3855 

Ie 1: 29 end; 

1s 533 ; if NIG_BIT = .NIB_BIT“ONE; ‘SHIFT THE SHIFTED NIBBLE BIT 

19635 : ¥. e 

19636 : NIB_BIT = ONE; 'RESET THE SHIFTED NIBBLE BIT 

19637 : ALL-ONES_1 = .ALL_ONES_1 + 1; READ "17" PATTERN 

19635 : ALLONESé2 = .ALL_ONES-2 = 1: 'READ ONE LESS ‘17° PATTERN 
E39 _— 

1S hi : 

13 ; 5 ENDSUB; | 

: : if .DODU_FLG IS_SET !DROP THIS UNIT IF DODU_FLG SET 

e en 
19645 ; begin 
19646 : DOBU (.ML_LUN); 


—<————-— = -_- - 


™ 5 ee 


eS eStats etieseemttinemmnssmmsteemewememeneec-. 
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137 TEST CODE SECTION SEQ 0412 
:ML4AD TOPS-20 Bliss-16 v2(212) 
; TEST CODE SECTION PA:<NEALE>ML4AD.BLI.4 (90) 
3 gare DOCLN; 
; end; 
: 7% 
; 75 ENDTST: 
-SBTTL $138 TEST CODE SECTION 
7077 113614 $738: JSR R1,$SAVE5 : 
7077 12 SUB #12,SP 
71 124370 CLR P.CNT : 
71 1$: TRAP 2 : 
71 0 126426 BISB #40,aML.REG+40 : 
7101 125010 MOV .DUT 
71 177770 BIC . #177776.R5 
71 7 124410 BICB = #7, AML .REG+40 
4 —_ oR ew DODU.FLG 3 
71 000001 000006 MOV #1,6(SP) : *,TST.PAT 
7105 : CLR R4 : CNT 
7105 2$: MOV R4,R5 ; CNT,* | 
71 : ASL RS 
71056 900006 014022 MOV 6(SP) ,10.BUF (R5) : TST.PAT,* | 
71 1402 COM 10. BUF (R5) : 
71070 | ASL 6(SP) : TST.PAT 
71074 INC R4 : CNT | 
i103 000017 CMP R417 : CNT,* 
711 127202 JSR PC,.GD.BLK.XFER : 792 
71110 1 124266 MOV 1,amL. : 79 
7111 124332 3$: TSTB aML.REGS5 
ae 25 Ov soB3S.*(SP) 8795 
at 10 : MOV #10,-(SP) 
ay 1 - “JSR PC.STRIPPER | 
1140 1 MOV #-1,R2 : *,STK.PTR | 
Hiss Seaee $0 900mm YH een 
711 g 000006 MOV b3eceP) : *, ALL.ONES.2 
11 CLR R4 : BY.FOUR.WRDS 
17 4$: CLR R5 : BY. eWRD 
17 5$: CLR RS : C¢ 
1 000010 6$: CMP RS. 10(SP) ; COUNT,ALL.ONES.1 
71 INC R3 ; 
Al INC = R2 : STK.PTR 
a 015034 000017 CMPB = STACK (R2) .#17 : *(STK.PTR),* 
1212 - BEQ é$ 
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000017 


123576 


10$: 





GaRNEL GEELI ICE GUIELNL a 


TEST CODE SECTION 


Re, (SP) 
#FAT.15,=(SP) 
#2,-(SP5 


(SP) 
STACK (R2) , (SP) 
40(SP) ,=( 

#EMT.5 


Das 


R 
sha #17 







NT 
a 
5 
1 
DUMPE 


) 
STACK (R2) , (SP) 
pris 


* =(SP) 
) 






STK.PTR,* 
SP ,* 


*(STK.PTR) ,* 
SAV .NIB,* 
SP ,* 

* ,DODU. FLG 
COUNT 





COUNT ,ALL .ONES.2 





COUNT 
STK.PTR 
*(STK.PTR) ,* 


SP ,* 
STK.PTR,* 
*(STK.PTR),* 


SP,* 
* ,DODU.FLG 


NI6.B1T 
BY e 
BY.ONE.WRD,* 





SEQ 0414 


16:23:04 TOPS 
7:21:03 PA:< 


8834 


8835 


8851 


Panes 
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£738 TEST CODE SECTION SEQ 0415 
1 :ML4AD r-1982 16:23:04 TOPS 
: TEST CODE SECTION a a 10:57:95 PA:< | 
19819 071 BGT 1$ 
19820 071 177226 a: | 
198 7176 1 000004 11$ MOV #1.4(SP) : 8861 
19822 0717 10 INC 10(SP) : 8862 
19 717 DEC 6(SP) : 886 
198 717 INC RS ; 8801 
19 717 000003 CMP R4,43 3 * 
19826 0717 GT 128 
198 71 177172 JMP 4 
19828 07177 12$: CMP {SP)+, (SP)+ ; 8780 
1 > 07177 : 6 $ 8864 
198 
15 176776 
Ls 19 13$:  g DODU.FLG 8868 
198 14 016 124010 : 8871 
19836 104451 
15 2 104444 
19838 4 062706 000012 14S: : 8714 
19859 0 000207 
196 : Routine Size: 272 words 
: ; Maximum stack depth per invocation: 26 words 
! 
1 ‘ lies 738 TEST CODE SECTION 
1 0 2 004767 176734 i PC,$T38 : 8873 
) hs ie 
: 5 losers | 
72044 000207 , 
i : + nea age need at's. invocation: 0 words 
19870 : 8876 '<BLF/PAGE> ” , 


rmmmmnennnn nnn sss 
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138 TEST CODE SECTION SEQ 0416 

1 : 9-Mar-1982 16:23: TOPS-20 Bliss-16 V2(212) | 

19878 “teamed TEST CODE SECTION Sonor} o5 18:53:08 PA: <NEALE>ML4AD.BLI.4 (91) 

3 : BGNTST 

198 : 1e¢ | 

19% : i TEST NUMBER: TST 39 

19881 ; i TEST NAME: SYNC DATA BUS BIT UNIQUENESS TEST/READ PATH 

19883 : i TEST DESCRIPTION: 

19884 : i TEST SYNCHRONOUS DATA BUS READ 

1s B85 : ; PATH FOR DATA BIT UNIQUENESS BY: 

19887 : i 1. LOADING THE FIRST 16 WORDS IN THE 10_BUF WITH A SHIFTING 

19888 : ZERO IN A FIELD OF ONES PATTERN. 

19890 : : 2. VIA MBUS WRITE FUNCTION WRITE SHIFTING PATTERN INTO THE GOOD BLOCK. 

19892 : : 3. CLEAR THE 10_BUF. 

19894 i 4. VIA MBUS READ FUNCTION READ THE SHIFTING PATTERN THROUGH THE 

: $ ; READ PATH. 

19897 : 8899 5. INTERIGATE THE I10_BUF FOR THE SHIFTING PATTERN. 

19899 : : i IMPLICIT INPUTS: 

19900 : 8902! 10_BUF 

1 1: A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTION ARD FOUND. 

1996 508 : $908 

19904 ;: 8906 local 

19905 : 8907 DODU_FLG, 'DROP UNIT FLAG 

19906 8908 TST_PAT: ITEST PATTERN 

1 : 8910 CLR_MBUS: 

19900 : 911 DODD _FLG = ZERO: 

19910 : 8912 TST_PAT = ONE: ‘ONE IN A FIELD OF ZEROES 

1991¢ : agi4 incr CNT from 0 to 15 do ‘WRITE 16 WORDS WITH SHIFTED 0 IN A FIELD OF 1°S 

19914 : 8916 10 BUF _C.CNTJ] = not .TST_PAT: 

19915 : TST_PAT = .TST_PAT“ONE;: 

hd : 18 end: 

19917 : 19 

19918 : GD_BLK_XFER (); ‘SET UP A GOOD BLOCK XFERR 

19919 : pas 1 MLCS1 = write; - ‘WRITE SHIFTING PATTERN 

19920 ; ¢ TIME _OUT_LOOP; 

: 1 : Z 3 

1 : : 5 incr CNT from 0 to 15 do ICLEAR OUT THE 10_BUF 

199 4 10_BUF £.CNT) = ZEROES; 

1 : 8 CLR_MBUS: 


a 
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CZMLADO ML Ic T 
4g TEST CODE SECTION SEQ 0417 
9-Mar-1982 16:23: [oPs~ Bliss-16 V2(212) 7 
13 cs TEST CODE SECTION $3me 1385 18; 53 ‘03 ALESML4AD.BLI.4 (91) | 
19931 ; 929 GD BLK_XFER (); OCK XFERR | 
199 : ; mits 2 our ea ad: if bp GOMIF NG Bue ERN THROUGH SYNC BUS 
193 : : 9 ¢ Ts 1 T T PAT = = ONE: ‘SHIFTING PATTERN 
199 ; 8934 incr ont from 0 to 15 do READ 10_BUF FOR SHIFTING 0 IN FIELD OF 1°S | 
e n 
199 : 83 if .10_BUF C.CNT] neq ( not .TST_PAT) 'COMPARE 10_BUF TO SHIFTED PAT | 
19941 9 n !ERROR AND SET DODU_FLG IF NEG 
19945 : 1 PRINTB “ive EAT » WRD_19 URD 3 
19944 : : PRINTB (FMT~2, ( —~ BF POAT. » »10-BUF a. wr ‘TST PAT xor .10 BUF C.CNTI)): 
19949 ‘ 8943 DODU_FLG = One: 
1994 ce : 8945 4 
19948 ; 8946 TST_PAT = .TST_PAT*ONE; ‘SHIFT THE PATTERN AND REPEAT 
i =, 
19952 : 8950 - 
19988 : 8951 if -DODU_FLG 1S_SET {DROP THIS UNIT IF DODU_FLG 1S_SET 
1998 ft : e988 begin 
19956 : 8954 (.ML_LUND ; 
19987 5 8955 DOCLN: 
1998 $3 : ooee 
19960 : 8958 ENDTST: 
pe +4: TTL $1 hea aes CODE SECTION 
1 167 112540 $139: : 8875 
Py set i : ae 
1 1 
199r2 Wrens Ste00s 7770 44, 
197% 150577 99908 R om ; , 
19876 976108 i274 00000 ae e312 
138 ) * 2 , - 
19361 01 014022 nov Bearer : TST.PAT.* 
1 B08 S04 ASL i? : TST.PAT 8917 





wo g- 

3 Sz 
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% 35 
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TEST CODE SECTION 


3sML4AD 
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c ML-11 LOGIC 
$T39 TEST CODE SECTION SEQ 0419 
sML4AD | 16:23: T 
TEST CODE SECTION So-mara1963 16:31:08 Bars 
11346 (R3) .=(SP) | 
166 sian R1,-(SP) | 
15946 900004 
of , 3; SP,* 
12705 900001 3 *,DODU.FLG 3 
7S: ; IST.PAT be 
000017 : (NT,* 
1 ; ; 8947 
1 
005 5 : DODU.FLG 8951 
016 123356 LUN, : 
104451 sean — 
104444 
000207 8$: ; 8875 
: Routine Size: 133 words 
; Maximua stack depth per invocation: 17 words 
sali -SBTTL 139 TEST CODE SECTION 
004767 177362 1$: JSR $739 : 8956 
104466 “obi TRAP 
Moses ts BLO 1 
000207 RTS PC 





: Routine Size: 6 words 
; Maximum stack depth per invocation: 0 words 





8959 !<BLF/PAGE> 


3 
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CZMLADO ML-11 LOGIC T 
£49 TEST CODE SECTION SEQ 0420 
:MLGAD 9-Mar-1982 16:23: TOPS-20 Bliss-16 V2(212) 
shoes - TEST CODE SECTION ta at 1 53:08 PA:<NEALE>ML4AD.BLI.4 (92) 
20098 
20099 ; 960 ! 
20100 ; 8961 ! 
101 ; 908 BGNTST: 
18 : 896 
103 ;: 8964 !++ 3 
10% : 8969 i TEST NUMBER: TST 40 
30106 : B96? TEST NAME: ARRAY ADDRESS MUX TEST 
20108 : 8969 ! TEST DESCRIPTION: 
110 : 8971! TEST FOR UNIQUE MOS RAM ROW 
11) : 897¢ AND COLUMN ADDRESSING BY: 
Ws : 8974! 1. FIRST FINDING A ERROR FREE 
Sots Sor, i THIS RECRESENTS ONE Roo Gr: 
20116 : 8977 ; _ EITHER 16K OR 64K MOS RAMS. 
20116 : 8979 2. WRITE A BACKGROUND OF ALL 
20119 : 8980 ONES INTO THE GOOD CHUNK 
20131 : 8982 3. WRITE ZEROES. INTO THE FIRST 
20122 : 8983} BLOCK OF THE GOOD CHUNK. 
0124 : 5988 i 4. READ REMAINING BLOCKS IN 
20125 : 8986 GOOD CHUNK FOR ONES. 
20126 ;: 8987 ! 
127 : 8988 
128 : 8989 | IMPLICIT INPUTS: 
19? : 8990 =! 
01 o : 8991 10_BUF 
201 : 5908 i A VECTOR OF 256 WORDS 
133 : 8994 WHERE DATA FOR MBUS 
: 8995 READ AND WRITE TRANSFERS 
135 : oe 
137 : 8998 
139 $000 | °"bsa_aprs ‘DSA ADRS ER 
140 ° 9001 FND~GD_CHK: i FOUND ec0b ) VOR 764K CHUNK FLAG 
16g : 3008 2 ‘LOAD FIRST 10 BUF WORD WITH ONES 
143 : 9004 DSA_ADRS = -.RAS_INC: ‘REST DSA COUNT 
144 ; 9005 FND~GD_CHK = ZERO: ICLEAR FLAG 
146 : $007 , 'DO UNTIL FOUND GOOD CHUNK OR LBT 
147 ; begin , 
48 ; 9009 CLR_MBUS; 
149 : 9010 BAI~= ONE: 'SET ON FIRST IO BUF WORD 
150 : 9011 ECC_DIS = ONE: iDISABLE ECC 


weno -< -— 


ges 9 ML-11 
T39 TEST CODE $ 


20138 >ML4AD 
155 ; 
154 


SSSeNRY 


ar 


= ihinhaninanhanbee 
BR 
2S 


Oo 


Boyuyuuunuyyyyyyyy yyy 
ana 


SS SaaS 


SSSsso 


wee coed cet edd cond «mud cond ceed od 





SIFTRASLSSELSARAT 


coed ere ced coed ced ceed ed coed ed eh od ed od ocd 


J 
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DUMPER) ; 


I 
VF 
“F 






MT, WRD_14, PHR10, F 





eninencimeiepeninatiatins sitar | 
1 | 






LOGIC TEST 
ECTION SEQ 0421 
9-Mar-1982 16:23:04  TOPS-20 Bliss-16 v2(212) 
TEST CODE SECTION ae tS 16:57:03 PA:<NEALE>ML4AD.BLI.4 (92) | 

901 DSA_ADRS = .DSA_ADRS + .RAS_INC; ' INCREMENT DSA ADRS COUNTER 
3018 MLWC = .W_C SIZE; 146K OR 64K WORDS 
901% MLBA = I ; 'LOAD UBUS ADRS 

15 MLDA = .DSA_ADRS: ‘LOAD DSA ADRS 
9016 ML_FUNC = write: 1DO A WRITE FUNCTION 
9017 TIME_OUT_LOOP; 
9019 if .SC IS_NOT_SET 'DID XFERR CAUSE AN SC 

en 
30 1 'XFERR WAS OK 
90 j SIZE; ‘LOAD WORD COUNT 
: ‘LOAD UBUS ADRS 

4 SA. : ‘LOAD DSA ADRS 
9025 ML_FUNC = WRT_CHK; 'DO A WRITE CHECK FUNCTION 
$057 TIME_OUT_LOOP; 
90 B if Sc IS_NOT_SET 11S THIS CHUNK GOOD 
90 FND_GD_CHK = ONE; 'YES SET FLG 
903 end 
3 
—, 
9036 'VER CZMLAD CHANGED TEST TO UNSIGNED TEST 
9038 until (.FND_GD_CHK IS_SET ) or (.DSA_ADRS 2qlU .LST_ARR + .ARR_INC); 
3044 'REPEAT UNTIL FOUND GOOD CHUNCK OR AT LBT 
9042 |. 
9045 'VER CZMLAD CHANGED TEST TO UNSIGNED TEST 
9045 if .DSA_ADRS eqlU .LST_ARR + .ARR_INC 
9046 then “ 


NTER 
MT, FNC_13, FNC_17, WO _50 WRD_60. WRD_56); 
nC7155; 


‘A GOOD CHUNCK WAS FOUND CONTINUE TEST 








‘DI ECC 


He > OCK IN CHUNCK GETS ZEROES 


te dae spar 
iDO A WRITE FUNCTION 


ere a - 


K_ 1 
TEST MACRO M1113 30-MAR-82 11:18 PAGE 439 
ON SEQ 0422 


tid 4 19:43:08 TOPS-20 Bliss~16 V2(212) 


3 
2 






20 09 TEST CODE SECTION 9-Mar-19 PA:<NEALE>ML4AD.BL1.4 (92) 
0211 : 9064 BAI = ONE: 
1g : 9065 10 BUF = ONES: 'READ REMAINING BLOCKS FOR ONES 
0213 : 9066 ECT DIS = ONE: 
; 16 ; 906 MLDA = ;DSA_ADRS + 1: {LOAD DSA WITH NEXT DSA INCREMENT 
5 . MLBA b+ 7 L 
16 : MLWC = .W7C SIZE + 256; 'LOAD WORD COUNT WITH LESS ONE BLOCK 
1217 : 0 ML_FUNC = WRT_CHK; iDO A WRITE CHECK FUNCTION 
18 ; 9071 TIME_OUT_LOOP? 
ii 20 : 907 if .WCE 1S_SET 'WERE ANY BITS DISTURBED 
Ps en 
3 : 9075 begin ‘ERROR IF WRITE CHECK FOUND BAD DATA 
: ERRDF (112, ASYNC, DUMPER); 
4; PRINTB (FOR_FMT, FNC_17, WAD_50, WRD_60, WRD_14); 
5: PRINTB (FMT 9. (.MLDA ='1)); 



















1 
% 9085 ENDTST: 
.SBTTL $140 TEST CODE SECTION 
41 072474 004167 112040 $1740: JSR R1,S$SAVE : 8°58 
42 0 500 012767 177777 121314 #~1,10.8UF : 9003 
43 072506 016702 122634 -INC,R2 + *, DSA.ADRS 9004 
44 076512 903400 i. t DSA-ABRS ae 
46 072516 hea 000040 122720 1$: 0, aM oe 9008 
10248 079850 gaseo1 459790 *; 
49 072534 142777 990007 122702 47am. 
320 0 542 150177 122676 R 
251 072546 132777 1 122 70 # : 9010 
3¢ 072554 152777 122742 & : $011 
a5 066702 1225 RAS. 1 + *, DSA. ADRS 9012 
1 1225 122620 W C.8I .REG+10 : 9013 
4 012777 014022 1 #i0. REG : 9014 
019277 122 an mi. 6+30 ; DSA.ADRS,* 9015 
14 138777 1 135209 06 Set aE : 
2 16 Mh 122626 2$ REG? 
100000 122546 # 
072636 aA aay 





Se 
aye 
Gr 
. 
g 
0 
RRS BR RES a 














ZMLADO ML-11 LOGIC TEST 
$140 TEST CODE SECTION 
64 
65 
66 
67 072640 ot 777 «1225 
072646 012777 0140 
9 072654 010277 1 
072660 142777 77 
71 152777 1 
72 0 4 105777 122554 
Fi 38088 897770000 
73 9 71 901002 
we Srsrie Susouy S000 
278 $78 2 001406 
en branes tueret 181858 
5581 OF9734 05001 
0282 072736 001267 
2028: 072740 016701 121054 
1284 072744 701 121034 
20285 072750 020201 
1286 072752 001043 
1287 072754 104455 
20288 072756 000157 
20289 072760 013114 
202K 072762 026302 
1291 072764 012746 011344 
1292 072770 012746 011400 
20293 072774 012746 011270 
20294 0 012746 012404 
20295 0 012746 0123 
1296 073010 012746 010304 
20297 073014 012746 000006 
20298 9 01 
20295 104414 
1300 0 012716 012360 
sae Orso Planes Sigees 
3030 012766 010056 
4! J 01 746 
3C hte 
eVIUC 
4! sh 
4! +4 507 
4! ’ 
1310 1 
4! 11 oi 
4! 1g 777 
4! 1 177 
4! 14 777 
0315 777 é 
sth Oi6er7 192276 
ae 19855 400 


1 
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4$: 


5$: 


122354 6$: 
122336 
155376 


122250 





TEST CODE SECTION 


W.C.SIZE,@ML.REG+10 
Rasa ant REG+20 


R2,@ML REG 
#77, aML.REG 
ami 






Zane 





#ENC 
SFIV FAT cteP) 
#6,~(SP)° 

SP. 


$33 






210 SN BEG*58 
Ro aM REG+30 
#-800-aML REG*10 








DSA.ADRS,* 


* FND.GD. CHK 
FND.GD. CHK, * 


; DSA.ADRS,* 


DSA.ADRS ,* 


DSA.ADRS ,* 


53-ma 


r=1 
r=1 


16:31 


SEG 0423 


704 TOPS | 
:03 PA:< 





CZMLADO ML~-11 LOGIC TEST 
$140 T 


TEST CODE SECTI 


SSSSSSSSSSSSSsoosss 


SOc = 
HAAXKE 
=< 
SESS SSSSSSSSSSSSOSSOSOSSOSOSOSOSOSOSSOSOCGOCOCSOSCSOSCOCOOCOO 


CONOUSWN 


eeireereas 


PAIGE RES 


bobebtbeees 
MASSNE 


vor 


GRORORORORORORORO! 
ANUSROMSONE 


ww +t 
’ oT os | = oe 
OFRORS 


} 
AMIOC 


feetvstys 


«| 


a ee 
FOLMA SNC : 


= 


es 


eh 
oul 
SRR 
~_™N 


3 


end ceed cd ed 

ue 

SE 
Ww 


3 


RRO 
MNMNONITO 
SERBS 
edt anclt 


o-0O-2 = 
Ae 
3 
~ 


3 
AMOuon) 
Wss yess 


Ww 
~_ 


ooo 
ened went wed) 


01 
14 
1 





Sk 
Ss 


woh 

nN 

= oo 
NESENS 


28 
3 & 


M1 
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138924 
122224 
122216 


122242 
122224 


13056 


122256 
122140 
122076 
122070 


122114 


sML4AD 


7$: 


9$: 


3; Routine Size: 











S59 ghgUlSaegUUUNeligs 


TEST CODE SECTION 
410-BUF QML -REG+20 
477 ,@ML.REG 


#40 ,aML 











-REG+40 


R1 
#10, QML -REG*40 
#2. GML .REG+120 
R2.R1 


@ML .REG+30 
eREG+20 






#40000, @ML .REG+40 


Ts 


abe P tt 
= 3A 


241 words. 
; Maximum stack depth per invocation: 


14 words 


DSA.ADRS ,* 


59-ma 


r-1 
r-1 


16:3 


SEQ 0424 


3:04 
1:03 


TOPS | 
PA:< 


9078 


9079 


9075 
8958 


Sr 


N 1 
TEST MACRO M1113 30-MAR-82 11:18 PAGE 442 
SEQ 0425 


CZMLADO ML-11 LOGIC 
$440 TEST CODE SECTION 
7 :MLGAD r-1 TOPS 
u TEST CODE SECTION Somer 15e5 16263:06 = Tops 
. “ -SBTTL 140 TEST CODE SECTION 
0 767 177032 1$: JSR PC,$T40 ; 9083 
0 TRAP 
ROR RO 
9 1 BLO 1$ 
5 20 RTS PC 
; Routine Size: 6 words 
1 > Maximum stack depth per invocation: 0 words 


08 ; - 9086 !<BLF/PAGE> 


MACRO M1113 30-MAR-82 11:18 PAGE fos" 
SEQ 0426 


5 


UNO Ww 





r-1982 16:23: TOPS~20 Bliss-16 V2(212) 
TEST CODE SECTION a1 985 18:57:03 PA:<NEALE>ML4AD.BLI.4 (93) 


— a 



























_— i = 


START. 
FINISH 
ERR_FLE: 


CLR THRESHOLD; 'CLEAR ERROR PRINT THRESHOLD 


PPP Py pp oe ype pe 





MYVNIN 


PPP 
S SONS 


= FL 





BGNSUB 
sonore 
_FLG = ZERO; 


incr WD_CNT from 0 to 255 do ‘LOAD I0_BUF WITH ONES 
10_BuF C.WD_CNTJ = ONES; 


I0_BUF [0] = ZEROES; ‘LOAD FIRST 2 1/4 WORDS WITH ZEROES 
I0_BUF ab: 













Ooc 
Rno.e 
all 


PAAR RADE PEP A PRR EDEL! 
BURRIS ONO RIS 


15; I0§ ! 
14 ; 9088 B8GNTST:; 
1g ; 9090 !+4 
V7: 9091} TEST NUMBER: TST 41 
9 9093 | TEST NAME: © NIBBLE OFFSET TEST 
: 9095 | TEST DESCRIPTION: 
: 09% TEST NIGBLE OFFSET COUNTERS TO OFFSET GOOD NIBBLE DATA A MAX 
097} OF 14 WORDS ON DETECTION OF ALL BAD NIBBLES BY: 
: 099 1. LOADING FIRST 2 1/4 WORDS OF THE I0_BUF WITH ZEROES AND THE 
; o | REMAINING OF BUFFER WITH ONES. 
: 9102 | 2. VIA DAT_DM MODE WRITE THE GOOD BLOCK WITH BACKGROUND 
: 4. ON ONES. 
) : 31 3. VIA PROM R/W MODE FORCE ALL ARRAY NIBBLES BAD. 
00433 ; 31 : 4. VIA A MBUS WRITE FUNCTION LOAD 10_8UF INTO THE GOOD BLOCK. 
10435 : 3109 5. VIA DAT DM MODE READ FIRST 15 ARRAY WORDS FOR ZEROES AND THE 
436 ; 9110 REMAINING WORDS FOR ONES. 
438 ; gti¢ . IMPLICIT INPUTS: 
: 9114 A GIT VECTOR CF 16 BITS WHERE THE READ PROM DATA IS STORED AND 
: gits ACCESSED FROM. 
; ae 10, BUF 
: 118 A VECTOR OF WORDS WHERE DATA FOR MBUS READS AND WRITE 
; 9119} FUNCTIONS OUND. 


= ZEROES; 
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CZMLADO ML-11 LOGIC T 
T40 TEST CODE SECTION SEQ 0427 
:ML4AD 9-Mar-1982 16:23: TOPS-20 Bliss-16 V2(212) 
: TEST CODE SECTION Somer 1388 18:57:98 PA: <NEALE>ML4AD.BLI.4 (93) 
10 BUF [2] = %0°177760'; 
MLB1 = ONES: 'LOAD DATA DIAG REGISTERS WITH ONES 
MLD2 = ONES; 
MLE2 = ONES; 
DAT_DM_XFER (); 'SET UP A DATA DIAG MODE XFERR 
MLCS1 = write; 'DO A WRITE XFERR 
incr WD_CNT from 0 to 127 do 'LOAD BLOCK WITH BG PAT 
n 
DELAY (ONE_US); 
DAT_CLK = ONE; 
end; 


BLOCK WORD LOCATION 
WITH ZEROES ALSO. 




















te 
au 
S 
30498 
s0494 













; ‘START AT THE FIRST BLOCK WORD 
: END AT THE 4°TH BLOCK WORD 
: ‘TEST FOR ZEROES IN FIRST 14 WORDS 
: T QO: ‘SET UP A DATA DIAG MODE XFERR 
: MLCS1 = read: D0 FUNCTI 
; 9165 DELAY (ONE_US); 
$7 : ; es from 0 to 1 do 'READ WORDS 0-14 FOR 0°S AND 15-126 FOR 1°S 
1499 : 9 
0500 ; 91 iner WRD_CNT from .START to .FINISH do ‘READ BLOCK WORDS FORM START TO FINISH 
502 : 91 'GET PROM DATA 
20503 ; 3178 ‘CLOCK OUT THE DATA WORD 
D5¢ ; 9175 ‘READ THE DATA DIAG REGISTERS 
2056 ; $177 incr NIB_PTR from 0 to 8 do ‘LOOK AT 9 NIBBLES 
0 ; 9179 if -PD_TEAP C.NIB_PTR] IS_NOT_SET ‘FIND GOOD NIBBLES 
511 : 9181 in 
> 2 : 91 TS? LNG. URD (.NIB_PTR, .TST_PAT, ERR_FLG): ‘COMPARE NIBBLE WITH TST PAT 
i 1% : 9184 if -ERRFLG 1S_SET 'SEE IF COMPARE FOUND AN ERROR 
SUITS 5 
516 : 91 in 'E T DODU_FLG IF ERROR FLG SET 
> i ; $e ¢ T ar - iE ORPARE ERROR PRINT SHOLD 
4! e RRBF 
0519 : 91 PRINTS (THR FMT, uke dt tab 46, WRD_10): 
520 : 91 PRINTB (FMT—6, .WIB_PTRS; = 





er 


D 2 
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T40 TEST CODE SECTION SEQ 0428 

sML4AD r=1 7:23: TOPS-20 Bliss-16 V2(212) 
§ ; TEST CODE SECTION Somer 1385 18:57:98 PA: ALESML LAD BL ic (93) 
5: 9191 DODU_FLG = ONE; 

: 919 end; 

: 919 

: 9194 end; 

; 9195 
§ 319 mere 

: 9198 TST_PAT = not .TST_PAT: INOW READ FOR ONES 

; 2199 START = 15; iSTART A 15 

: 9 FINISH = 136; iEND AT 126 

3 8 1 end 

: 3 ENDSUB; 

: 2 5 if .DODU_FLG 1S_SET !DROP THIS UNIT IF DODU_FLG SET 

: 9207 ary 

: 9 bOBU (.ML_LUND; 

; 9. DOCLN; 

: 9210 end; 

3 9211 

: 9212 ENDTST; 

TTL $141 TEST CODE SECTION 
167 111134 $741: R SSAVES ; 






Sess 


a 
aE ae 










TRAP 
121746 BISB 840,@ML.REG+40 
b38766 Te¢830 Rov areas 
143771 , ? 121730 BIeB gta REGe40 
150477 121724 BI1S8 0s «R4. AML. 
005066 CLR  6(SP) : DODU.FLG 
2$: nov RS : WD.CNT,* 
1 177777 014022 mov #~1,10.8UF (R3) es 
000377 ine 377 : WD.CNT,* 
67 BLE 
7 120246 CLR 0.BUF : 
7 120264 CLR 10 +2 : 
ES ee, 122009 mye antes ; 
012777 (177777 «1 MOV #~1,@ML. set : 











—— .- —- -— 


ML-11 LOG 


2 
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$T41 TEST CODE SECT 






























ION SEQ 0429 
ML4AD -1982 16:23: TOPS 
: TEST CODE SECTION a at 18:57 .08 PA:< 
one MS crn 2 : se 
Oss0e) 121562 Ov #61 aM REG : — g144 
000001 3$: V »R2 ; rapt 9148 
106260 ‘ mov LY.R3 : *,SSTMP1 
000010 5$: C 3; SSTMP 
: f aie 
305 6$: DEC ; SSTMP2 
2055 000020 121642 7%: Biss ,@ML .REG*+120 _ 9149 
4'P2 4: 000177 cn : WD.CNT,* 
059% 121544 Te 9150 
4! 4s * : 1 nit 
, 121526 
ri 1 Bite R4 
1 MOV 0 lo= : 9153 
MOV 
1 JSR 
121560 B1s8 20 : 9154 
7 , 121426 , 8 : 3186 
$1 1274 ss: 1378 e ; 
511 121452 Biss : 9158 
1g 1 : 
51 1 c 
514 121434 cB 
+7 0600 START 9160 
19 16 000004 nov : *, FINISH 9161 
19 : Osh DAT.DM.XFER g TST.PAT o1e8 
52 000071 121342 MOV Ar L REG 3 9164 
7 9s: Bea : : *,SSTMP2 9165 
106042 : mov ( Y,R3 : &,SSTMPI 
000014 0$: ¢ 14(SP) : SSTMP 
a : am 
11$: pec : SSTMP2 
12%: ¢ R4 : Twie 9167 
000006 1H mov 6(SP) RI : START. WRD. CNT 9170 
DEC Ri : WRD.CNT 























= 
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$141 TEST CODE SECTION SEQ 0430 
ML4AD -1982 16:23: T 
: TEST CODE SECTION ra19B9 16:57:05 Bans 
796? 121526 121230 148: Rav a REG? TEMP 917 
35595 050090 1S}cbe '  gisa @ sort EGS 20 : 3175 
D1 #1,R : *,SSTMP2 917% 
0014 158: Q j 
13 105764 V LY,R3 : *,SSTMP1 
000014 16$: C (SP) : SSTMP 
a : SO, 
17$: pec . 3: SSTMP2 
i 121 117216 18$: MOV -REG+170,01.T 
nee, ieese Tiegie Rov BREA Bs: Tp 
i CLR : ee : NIB.PTR 9177 
19$: mov 1 : NIB.PTR, « 9179 
i ASR 
| ASR 
. 015342 AbD 
! 177770 re ; NIB.PTR,* 
r 000001 ce 
df. 
36 107 
xy 000046 Abb 
ae 
: cy : WP-bares sae: 
12611 y : ERR.FLG.* 
b80028 000001 te : ERR.FLG,* 9184 
1211 ‘ 
121102 sonore 4 mas 
' 20S: : 9188 
Bute aes 
i j Je ir -WORD 


i 


abl able oth 0% bead 


Je 


rAICARIC 


ead areal 





74 
4 
4 
4 
4 
& 
é 
4 
a 


RRR 
> 
Ssssss 


ssss 





2 
crm ADO Mi~-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE a8 
$T41 TEST CODE SECTION SEQ 9431 





sML4AD r-1 16:23:04 TOPS 
; TEST CODE SECTION ae pled bo 16:21:03 PA:< 
nov ne (SP) NIB.PTR 9190 
; -PTR,* 
MOV AT. 6,-(SP) 
MOV g ai ) 
MOV ‘ 3; SP,* 
TRAP 4 
MOV #1,34(SP) : *,DODU.FLG 9191 
ADD #16,SP ; 9186 
21s: ADD »SP : 9181 
: INC ; NIB.PTR 9177 
CMP R2,410 3 NIB.PTR,* 
BLE 1 
238: INC R1 3; WRDO.CNT 9170 
cw R} 4(SP) 3 WRD.CNT, FINISH 
COM Ce : TST.PAT 9198 
MOV #17,.6(SP) 3 *,START 9199 
MOV #176,4(SP) 3 *, FINISH 9200 
INC : TWIC 9167 
CMP #1 : TWICE,* 
BLE 1 
CMP (SP)+, (SP)¢ 3 9129 
TRAP $ 9201 
ROR 
BHIS 
JMP b | 
24$: a 4(SP) #1 3; DODU.FLG,* 9205 
=, LU RO 3 9208 
as: BS Hes sss 
074514 RTS PC 
3 ine Size: 274 words 
: — stack depth per invocation: 23 words 
cU/ OC 
aC -SBTTL 141 TEST CODE SECTION 
10743 074516 T41:: 
9744 074516 004767 176730 1$: JSR PC $741 g 9210 











4H 2 
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T41 TEST CODE SECTION 
sMLSAD 
: TEST CODE SECTION 


74 1 TRAP 

74 ROR 

74 2 1 
74 PC 


3; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 





9213 !<BLF/PAGE> 


53-ma 


r=1 
r=1 


SEQ 0432 


3S 1c 16: 37:03 :03 


| 


TOPS | 
PA:< | 


oT ene 
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CZMLADO ML=11 LOGIC T 
T41 TEST CODE SECTION SEQ 0433 
:ML4AD 9-Mar-19 TOPS-20 Biiss-16 v2(212) 
; TEST CODE SECTION Sonar -}98 | 18; 7:08 PA:<NEALE>ML4AD.BLI.4 (94) 
t 
BGNTST: 
'o¢ 


TEST NUMBER: TST 42 
i TEST NAME: | CS1 FUNCTION ABORT TEST 


i TEST DESCRIPTION: 
i TEST CS1 FUNCTION ABORTS ON DETECTION OF CLASS ‘A’ & 'B* ERRORS BY: 


1. VIA_MBUS WRITE FUNCTION LOAD THE GOOD BLOCK WITH BACKGROUND 
PATTERN OF ONES. 


2. CLEAR THE I0_BUF 


' 

‘ 

' 

1 

‘ 

' 

i 

] 

é 

' 

3. DO A MBUS READ FUNCTION. WH 
MLDA (CLASS 'A' ERROR) READ 
‘ 
a 
4 
f 
t 
i 
é 
‘ 
¢ 





BSASJaVaowan SSE Ieoe 


S_IN PROGRESS WRITE TO 


ILE 
ONES. 


THE 





4. CLEAR THE 10_68UF 


5. VIA PROM R/W 
(CLASS °B’ ERROR). 


i 6. READ 10_BUF FOR ZEROES 
1 'MPLICIT 
i 10 






S83S 


A 


FORCE UV ERROR TO THE UV ADRS ERROR PROM 
DO A MBUS READ. 










— 
: A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND 
a URITE FUNCTION ARE FOUND. 





‘CLEAR ERROR PRINT THRESHOLD 


‘SET ON FIRST 10 BUF ADRS 
‘LOAD FIRST 10 BOF ADRS 
‘SET UP_A GOOD BLOCK XFERR 
= write; WRITE BACKGROUND PATTERN 


TIME_OUT_LOOP; 
incr Twice from 0 to 1 do ‘FORCE CLASS ‘A* AND CLASS ‘B° ERRORS 









incr CNT from 0 to 255 do 
10_BUF C.CNTJ = ZEROES; ‘CLEAR OUT I0_BUF 


if TWICE eql 1 ‘IF 2ND PASS THEN FORCE 'B* ERROR 


PROM. Rl = ONE; 





SS SONRU RUN SOO NOUR BOCRISURUR US SSR OPO CORTE 





OODOOOODODOOOOOOOOOOOOOOOOOOOOOOODOD OOOO O00 0D000000 000 000 


Be Fe Ge Se Ge Ge Be Ge Se Se Be Se Be Ge Be Oe Ge Se Be Pe Se Se Se Fa Se Se Se Se Ge Ge Be Se Se Se Be Pe Se Se Se Ge Se Ge Be Se Se Se Se Be Se Se Ge @e 


ws 


one ee wee ee eee o—— 
LLL OT TE SY 
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T41 TEST CODE SECTION 


TEST CODE SECTION Sooner 1985 16:57303 Parente ese Ean’ 
MLPD = %0'777'; 
end; 
SME! BE al PRE Oe 
if .TWICE eql 0 then MLDA = ONES; 11F FIRST PASS THEN FORCE AN ‘A’ ERROR 
TIME_OUT_LOOP; 
if .TWICE eal 0 'SEE WHICH PASS WE'RE ON 
begin ICLASS ‘A’ ERROR 
incr URD-CNT from 0 to 64 do 'SEE IF XFERR WAY ALLOWED TO CONTINUE 
if .10_BUF C.WRD_CNT] neq ONES 'READ 10_BUF FOR 8G PAT 





9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 


"esa: ORM ERSN RORY Hed SE 
ERADF (95, SYNC, DUNPER) ; 
PRINTB (FOR_FMT, PHR_8, FNC_13, WRD_19, WRD_10); 
exitloop; 
end; 
‘ end: 
a ICLASS °B" ERROR 
begin 
iner Winn cnt from 0 to 64 do 'SEE IF XFERR WAS ABORTED 





2 1 if .10_BUF C.WRD_CNT] neq ZEROES = !READ I0_BUF CLEARED DATA 
9 in ‘ERROR IF ONES AND EXIT LOOP 
3 (96, SYNC R): " — a 
9 NTB (FOR_FMT. Pun tt FNc_13. WRD_19, WRD_10); 
9 oop 
9 ; 
g 10 end; 
9311 2 
¢ end: 
9314 if .SC IS_NOT_SET ‘SEE IF SC BIT SET 
gai2 a ‘ERROR IF NOT SET 
nm ° 
9319 PRADF (106, SYNC. DUMPER) « 





—. eee — ee 


LL LLL LOL ET LL Ct CT Ut te tit ee ree: eer eet een pee 
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78 





PRINTS (FIV_FAT, WRD_S9, PHR_1, WRD_11, WRD_19, FNC_13) 


ENDSUB; 
end; 


ENDTST; 


10016 


1 

1 
0 

1 

1 

1 


1 
004767 1235 
re ae 


014022 
000377 





120674 
120656 
1e064 
117214 


120564 


120604 
120566 


120444 


$T42: 


1$: 


¢ 


4$: 


.SBTTL $14 $Hvt) CODE SECTION 
ail 


Serrarc. 
sea" 


48se 
3 


gucaparegrgecneceensescs 


2 





iii 


# #10, aR REG 








mb. 
oo REG+ 


EG+40 
i 


fit 


eBLK.XFER 
G 








TWICE 


TWICE 


CZMLADO ML-11 LOGIC TEST 
ra TEST CODE SECTION 
20876 ;ML4AD “Mar-1982 16:23:04 TOPS-29 BLi 
: TEST CODE SECTION $3-mer=1983 16:37:08 PA: : <NEALEDMLGA 


rr reer eee eens seeeeemeseeeeeeeee 


SEQ 0436 
04 
03 
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TOPS 
PA:< 


Me-~ 


31 


oo 


err. 


Sooner 1982 


TEST CODE SECTION 


sML4SAD 











9276 
see 
83 
9285 
9287 
9288 
9289 
9280 
9276 
9298 
9301 
9303 
9305 
9306 
9307 





3; WRD.CNT,* 





3 WRD.CNT 
: SP,* 








S = = Bana 

ee = = Thee 
ha & 3 * 6 com ‘=a 
7 = & aa eeees re 





TEnegescse Sox DEESSE EE sn Sa steSog Sesteomse gg298.5. 


sSgsuspangeee?ssncssppetavbusspungeeuseescsnnnaess. 


bh * s 





oe ee Be ee Ge oe 
a 3 Nd Bo = 
3 F 3 2 
x & & & 
mc ~w ya) ia) =) Town ~S 
RS S 33 sees - §2% : 
LAWN . ‘ -—-LK-KRAMNNARC wm 
RRRSSRS SR aac es agesnegs 
seescss geeaeesens SSS 








74750 
747 
. 








ne. Ae 
wees ReRcRoRoRERER OR ORR RCR ORR 


BESIDES 79929995 RoR ED SS VO NaS BSCE NCCE EE BREEDS 








M2 
ce Aoe ML-*1 LOGIC TEST MACRO M1113 SO-MAR-82 11:18 PAGE 454 
$142 TEST CODE SEC 















TION SEQ 0437 
20988 :MLGAD S-Mar-1982 16:23:04 TOFS 
20985 3 TEST CODE SECTION 9-Mar-1982 16:21:03 PA:< 
$.°,".8 
20991 11$: INC R ; WRD.CNT 9298 
3095 ay R2,4100 : WRD.CNT,* 
2095 120162 12$: BIT ] -@ML REG ‘s 9314 
5099 fue , 9317 
2099 ‘None SYMe 
0996 “WORD  DUMPER 
MOV #FNC.135,~(SP) § 9318 
1001 MOV MURD.19,-(SP) 
1 MOV MURD.11,-(SP) 
1 MOV #PHR.1,~(SP) 
1 MOV #WRD.59,-(SP) 
1 MOV #FIV.FMT,-(SP) 
1 MOV #6,-(SP) 
MOV $7 RO 3 SP,* 

1 TRAP 4 
1 ADD o16.SP 3 9316 
1010 13$: TRAP 6 : 9319 
1011 ROR 8 
1 \¢ BHIS $ 
101 14$: JMP 
1014 15$: INC : TWICE 9254 

15 CMP #1 : TWICE,* 

16 BLE 14$ 
; ; RTS PC 3 9212 
1 19 3; Routine Size: 189 words 
} ; Maximum stack depth per invocation: 11 words 
; 3 
1 -SBTTL 142 TEST CODE SECTION 

75324 T42:: 

1 75324 767 177202 1$: JSR $742 : 9322 
1 75 1 TRAP 
1838 3 3 | 
; 0 075 207 RTS PC 
1042 : Routine Size: 6 words 


ee 





nN 2 
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T42 TEST CODE SECTION | SEQ 0438 
1044 7ML4AD 9-Mar-1 16:23:04 TOPS 
1948 3 TEST CODE SECTION a 4985 16157203 PA:< 
] as : Maximum stack depth per invocation: 0 words 
1 
1054 ; 9325 !<BLF/PAGE> 


a 
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T42 TEST CODE SECTION SEQ 0439 
1 sML4AD r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
: TEST CODE SECTION r=19 18:57:03 PA:<NEALE>ML4AD.BL1.4 (95) 
1066 ; 3359 i 
1061 ; 93¢8 BGNTST; 
1 : 9330 '+4¢ 
} : : 93: TEST NUMBER: TST 43 
: 933 i TEST NAME: LAST BLOCK TRANSFER TEST 
1 9339 TEST DESCRIPTION: 
: 9337 | TEST THE LAST BLOCK INDICATOR B1T 
51071 : 9338 SETTING/NOT SETTING AND THE 
} es : 9335 DSA REGISTER FOR INCREMENTING BY: 
7% : 9341 1. DOING MBUS TRANSFERRS AT EACH 
1075 : ose BLOCK FROM BLOCK ZERO TO 
1 i: : 9 i LAST BLOCK -1 AND TEST LBT 
1077 : 9 i CLEAR AND DSA REGISTER TO BE 
1078 : 3 = INCREMENTED. 
1080 ; 9347 2. TRANSFERR AT 
1081 ; 9 ! THE OCK. 
1082 : 9349 | TEST LBT TO BE SET AND 
; 9350 : TEST FOR CLEAR. 
: 3 31 TEST DSA REG TO BE INCREMENTED. 
; 3358 . IMPLICIT INPUTS: 
188 ; 9355 A VECTOR OF 256 WORDS WHERE 
1089 : 9336 i DATA FOR MBUS READS AND WRITE 
1090 ; $338 FUNCTION ARE FOUND. 
2 9359 i 
109% : 9361 CLR_THRESHOLD: ICLEAR ERROR PRINT THRESHOLD 
10% : 9363 ! 
es : 9 54 VERSION CZMLAD CHANGED TEST TO UNSIGNED TEST 
10 : 9366 incru ay from 0 to .LST_BLK = 1 do 'DO XFERRS UP TO THE LAST BLOCK 
101 aa08 
HW : 33 i ECc-DIS. CpIs = te ‘DISABLE ECC 
1104 : 9 = not 3: 1LOAD WORD C 
1105 : 9372 Th iL ADRS. 
1106 : 3 MLDA = DSA chr iLOAD DSA WITH DSA_CNT 
107 : 9374 MLCS1 = variten iDO A WRITE FUNCTION 
1 ; $376 TIME_OUT_LOOP: 
110 : 9 if .LBT IS_SET 'SEE IF THE LAST BLOCK XFERR BIT SET 
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od cond cmd cold ced) eed ceed ed md ee eh cond aed 


a ee oY 
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IC TEST 
TION 
TEST CODE SECTION 

937 then 
3 THRESHOLD: 
9381 ERRDF (97, ASYNC, R); 
9 PRINTB (THR_FMT, uRb oP PHR_5, WRD_29); 
9 PRINTS (FMT_7, .DSA_UNT); 
. end; 
9 if .MLDA neq .DSA_CNT + 1 
8 then , 

n 
3 eet D; 
9 ERRDF (98, ASYNC, DUMPER): 
9391 PRINTS (THR_FMT, REG 6. WRD_31, WRD_14); 
9 : PRINTB (FMT_7, .DSA_UNT): 
° end; 
9395 
9 : 
9397 
9398 BGNSUB; 
9 CLR_MBUS; 
9400 ECC™DIS = ONE: 
9401 LAST _BLK_XFER ();: 
rs = write; 
9404 | UME-OUT_LOOP; 
9405 eae neq .LST_BLK + 1 
9409 
3409 WRd_31, WRD 14); 
9410 ST_BLK); ~ - 
9411 : : 
aie 
9413 if .LBT IS_SET 
9414 then 
sig ROB oes 

= ; 

17 if .LBT IS_SET 
$419 then . 


LAR 


rs 


in 
canoe 
end; 






(99, ASYNC, R); 
(Fiv_FMT, uRD wie PHR_2, WRD_11. 


R); 


9-Mar-1982 16:23: TOPS-20 Bliss-16 V2(212) 
9-Mar= 1985 18:31:03 PA: <NEALEML4AD.BLI.4 (95) 


:COMPARE ERROR PRINT THRESHOLD 


‘SEE IF THE DSA REG INCREMENTED | 


:COMPARE ERROR PRINT THRESHOLD 


‘DISABLE ECC 
‘SET UP A_LAST BLOCK XFERR 
!DO A WRITE FUNCTION 


‘SEE IF DSA REGISTER INCREMENTED 


‘SEE IF LBT BIT SET 


11F SET THEN TRY TO CLEAR IT 
'SEE IF BIT CLEARED 

'ERROR IF NOT 

URD_17, REG_6); 


‘LBT NOT SET 


PHR_1, WRD_11, WRD_27); 





SEQ 0440 


SEQ 0441 
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z a = & a 
= e " 
; g 2eSE & E 
3 eC eer - - 
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ee 


SSeree XREBSSSSRRS KALLE STS 
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Sah peak sock sod 


aR ER cre 


REKKERERE eeeteeerneee 
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9379 
9386 
9388 
9390 
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9392 
9388 
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9366 
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9398 
9400 
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9408 
9409 


SEQ 0442 


: DSA.CNT 
s DSA.CNT,* 
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SEQ 0443 
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TEST CODE SECTION 


sML4AD 
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940 
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; SP,* 
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117356 108: 





ik nm 
Aa RE 
Se 


S3SLA Ele Easy ene 
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11 words 


: 230 words 
stack depth per invocation: 
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CZ ADO Mi-11 LOGIC TEST 
$145 TEST CODE SECTION 
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! <BLF /PAGE> 


-SBTTL 143 TEST CODE SECTION 


T43:: 
1$: SR PC,$T43 : 
RAB 
ROR R 
BLO 1 
RTS PC 


; Routine Size: words 
: Maximum stack it per invocation: 0 words 


et eter 


SEQ 0444 


~ 
LS 
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~ 
mm 
wt 
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SEQ 0445 





liss- 


“3 
g 


S-Mar=1988 16:91:08 — PAT<NEAL 





TEST CODE SECTION 


’ 
BGNTST: 


od ced cee el cel cca cea meal 
PAPUIN ISS 


oo 


TEST NUMBER: TST 44 






seLEEEEEE 

















> : ' TEST NAME: INVALID ADRS TEST 
1381 ! TEST DESCRIPTION: 

BS : i TEST THE DETECTION OF ILLEGAL DSA 
1384 ADDRESSES BY: 

86 : 5 i 1. DOING A MBUS WRITE FUNCTION 

87 : 9450 : AT ALL POSSIBLE ILLEGAL DSA 

88 ; 9451 ! ADDRESSES AND TEST THE 
1389 : 938 ‘ IAE BIT SET. 
1390 ;: 94 ‘ 
1391 : 9454 | IMPLICIT INPUTS: 
1 Fe a522 
1394 : 3488 i 
1395 ; ares ! 
1396 ; 9459 ! 
me ORY 

170 5 
1 Ac : lon 

400 : 5463 

401 ; 9464 local 
1402 : 9465 IAE_CNT: 'INVLID ADRS COUNT 
1404 : oce9 CLR_THRESHOLD: : 'CLEAR ERROR PRINT THRESHOLD 
1405 : 9468 IAE_CNT = .LST_BLK: iSTART AT LAST BLOCK + 1 
1407 : $470 ; ‘TEST FOR ALL INVALID ADDRESSES 

Py n 
1408 : 947 taf Gur = -IAE_CNT + 1; INCREMENT IAE_CNT 
1413 ; Pi ROK JAE_CNT: 'LOAD DSA 
e =e > . 

218 : ase = not tse. 'LOAD WORD COUNT 

414 : 94 ALBA = 10 BUF : i S 

413 : 9478 MLCS1 = write: iDO A WRITE FUNCTION 
1a1$ : if .IAE _— SET 'SET IF IAE SET 

418 : 1 then 

419 : ‘ERROR IF NOT SET 

420 : ne Tone uo ICOMPARE ERROR PRINT THRESHOLD 
421 : ASYNC, 
14 4 ; Painte (FIV_FMT, WRD_ EROiR1, WRD_11, WRD_30, WRD_10); 


eer erect stn eeteenneiet>->- cee 
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SEQ 0446 
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TEST CODE SECTION 


Nw 


Byers invocation: 


~-SBTTL 144 TEST CODE SECTION 


nd ed ad ed edd eed 
OFUN-—O 


words 
mum stack depth per invocation: 
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ele eRe le ES ee en ee 


SEQ 0448 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>ML4AD.BLI.4 (97) 


TEST CODE SECTION Soomara1989 10:57 304 
BGntsT: 
' 


lee 
{ TEST NUMBER: TST 45 
i TEST NAME: ADRS OVERFLOW BIT TEST 


i TEST DESCRIPTION: 
i TEST THE DETECTION OF ADDRESS OVERFLOWS BY: 


4 
| 

' 

? 

4 

: 1. STARTING AT THE LAST BLOCK DO A TWO BLOCK TRANSFER. 
2. READ THE AOE BIT SET. 
. IMPLICIT INPUTS: 

t 

t 

! 


10_BUF 
A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE 
FUNCTIONS ARE FOUND. 





'SEE IF AOE SET 
{ERROR IF NOT SET 






): 
, PHR_1, WRD_11, FNC_19); 





TTL $7465 TEST SECTION 
116716 $145: ane REG 


9008" 116700 


j 11 
01 11 
135224 11 


y, 
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Se @e Ge 
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Mmrrn 
> 
wv 
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BRERSS 


mn 
—_ = 


SSSSS 
vw 
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OO ce ed ced el ced cel eal ceed ceed 






SSSSSEee 
seas 
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SS3ssssy 
ooo°oo 
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BERR 
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nd and and ead 
Wow 

=) 
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Wh— 
sees 
33% 

an 


mn 
— = ed ed ed 2d ed ed 


pi ph gh ph gh ph gh sh od, 
BEALS 
a AUN ES 


aa 
BS 
a 


9533 








990081 116604 
116650 1$: 


001000 116650 





177624 


! <BLF /PAGE> 


sML4AD 





~ ose ~p@Mmw—~ 
SESSSESSS SEER Se 


23: RTS 

; Routine Size: 

: Maximum stack 
-SBTTL 

T45:: 

18: JSR 
TRAP 
ROR 





Routine Size: 
Maximum stack 
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TEST CODE SECTION 
#61 ,@ML.REG 
sa -faGs85 
#1000 ,@ML .REG*+60 


47 
SYNC 






eee 

NC.19,~(SP) 

MURD.11 = (SP) 
-(SP) 


52 words 
depth per invocation: 


_ T45 TEST CODE SECTION 


= 
1$ 
PC 


6 words 
depth per invocation: 


6 words 


SP,* 


SEQ 0449 


So-mar-19B5 10,5725 


TOPS 
PA:< 
9522 
9525 
9528 
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9527 
9495 
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TEST CODE SECTION 


' 
BGNTST: 


'o+ 
TEST NUMBER: TST 46 


TEST NAME: SYNC BUS PARITY TEST 
TEST DESCRIPTION: 





2. REPEAT WITH SHIFTED DATA 


IMPLICIT INPUTS: 


FUNCTIONS ARE FOUND. 


if .PAR_DIS IS_SET 
then 


1 
PRINTS (THR_FMT, FNC_3, WRD_7, WRD_37); 
EXIT_TST: 
end; 
CLR_MBUS: 
BAI~= ONE: 
10_BUF = £0°125252°: 
iner rurce from 0 to 1 do 





GD_BLK_XFER (): 
MLCS1 = write; 
ME_OUT_LOOP; 


if .DPAR IS_SET 
then 


ERAD_ (105 





E SYNC, 
end 


10 BUF = .10 BUF “ONE; 
MLER = ZEROES; 


3 


TEST ABILITY OF SYNC BUS TO DETECT AND GENERATE 
GOOD PARITY BY: 


10 
A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITES 


$9-mar-1965 16:91:05 





TOPS-20 Bliss~-16 V 
PA: <NEALE>ML4AD .BL 


1. VIA MBUS WRITE FUNCTION WRITE ALTERNATING ONES AND ZEROES TO THE 
DEVICE AND READ THE DPAR BIT CLEARED. 


'SEE IF PARITY IS DISABLED 
‘PRINT MESSAGE AND EXIT TST IF YES 


‘SET ON FIRST 
‘ALTERNATE 1, 


‘REPEAT LOOP TWICE 


fo BUF ADRS 
PATTERN 


‘SET UP_A GOOD BLOCK XFERR 
'DO A WRITE SUNCTION 


'SEE IF DPAR GOT SET 
‘ERROR IF SET 


R); 
PRINTB (FOR_FMT, ur Dos. WRD_6, WRD_7, WRD_9): 


‘SHIFT THE 
‘CLEAR OUT 


10 _ BUF 
ERROR R 


F kee 


REPEAT 


se 


3. VIA MBUS READ FUNCTION READ THE ALTERNATING PATTERN AND MDPE CLEARED. 





VRS 


uy 
SSS ses Resa IONS 


Ph 
745 


744 
1 


a 


7 
76776 


N 
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IC TEST 

CTION SEQ 0451 
9-Mar-1982 16:23: TOPS-20 Bliss-16 V2(212) 
TEST CODE SECTION hae ai 3 16:57:04 PA:<NEALE>ML4AD.BL1.4 (98) 

95 ENDSUB; 

82 end; 

$369 incr TWICE from 0 to 1 do IREPEATE LOOP TWICE 

n 

9295 CER MBUS: 

959 BAI~= ONE; ISET ON FIRST 10 ADRS 

9594 GD BLK_XFER 0: ‘SET UP A GOOD BLOCK XFERR 

9595 mLtS1 = read: 'DO A READ XFERR , 

959 TIME_OUT_LOOP: | 

9998 i f  -MDPE 1S_SET ‘SEE IF READ GENERATED BAD PARITY 

9600 in ‘ERROR IF MDPE SET 

9601 PERF (106. SYNC. PUMPER) ; 

3605 PRINTS (FOR_FMT, WRD_23, WRD_6, WRD_7, WRD_8); 

9605 

9606 'MAKE DATA PATTERN HAVE ONE LESS ONE 

960 iSET UP A {8000 BLK XFER 

9608 i¢ THE BACKGROUND IN MEMORY 

36 a0 

9611 

9612 ENDTST: 

$8 $146 TEST CODE SECTION 
010146 $746: MOV R1,-(SP : 9532 
026727 115076 000001 cre PAR.DIS,#1 : 9559 
or Oe 011122 MOV : 9562 
12746 01 366 MOV 
012746 0121 MOV 
012746 010256 MOV 
012746 MOV 
104244 TRAP oe 
194463 3 TRAP 
ss gusts mB : 358 
1 oe | 116456 1$:  BISB : 9564 
16701 11 - MOV 
. 4 BIC 

14 000007 116440 BICB 














—~—> + , 
> ‘ 





WISI 


ERSESRNSFSRES 


casa “Hana “Mell “call eel el el eal a, ee Oe Oe Pe Oe et eee 


~NNs JN 


yi fet 
r ¢ 


tr 
— ++? 


4 
, 


ya 


ARICH 








conde eed wed anh 


B 4 
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5$: 
116254 
116236 
116224 


116152 
6$: 


116176 





@oa 
Be 





R2z85 50 
Saraseecs 


Sgche gUZEEE cis 


TEST CODE SECTION 
Me et 
f- 5856-10 BUF 
Rt 
PC.GD.BLK.XFER 
#61 ,aML REG 





#400 ,@ML .REG+40 


mtn 
WW 
™ 


TWICE 


SP,* 


TWICE 
TWICE ,* 
TWICE 


$9snar-1969 | 


6: 
6: 


SEQ 0452 | 


3:04 
1:03 


TOPS 
PA:< 


9567 


9570 


9571 


Sr a ML 
$746 TEST 
1803 





C 


11 
ODE 


“~ 
Da 


PESYLMAE WMV SS SSSN 
ed ced eed eed ceed 
SNES ~~~ 


—y 
Scesceee 
— 
SSinss 


33 


~ 


LOGIC TEST 
SECTION 


WE 


o 
N 


9613 





C_ 4 
MACRO M1113 30-MAR-82 11:18 PAGE 470 










sML4AD 
$ TEST CODE SECTION 
1 #URD.6,-(SP) 
10768 WuRD 38 =(SP) 
1 #FOR.FMT,-(SP) 
#5,~-(SP) 
000014 #14,SP 
7$: 67 
R 
114470 10.8UF 
120754 PC,GD.BLK.XFER 
1 116040 1,aML.R 
1161 8$ @ML .REG+5 
8$ 
Ri 
000001 ad 
9$: MOV (SP)+,R1 
RTS PC 
; Routine Size: 153 words 
; Maximum stack depth per invocation: 7 words 
146s: T46 TEST CODE SECTION 
177312 1$:__ PC,$T46 
BL 1 
RTS PC 
z Routine Size: 6 words 
; Maximum stack depth per invocation: 0 words 
' <BLF /PAGE> 


TWICE 
TWICE ,* 


9-Mar-1 
r-1 


SEQ 0453 


16:23:04 
16:21:03 


TOPS 
PA:< 


9610 


| 


a RR ee 





Ba SSS ISIS Ss iene CeCe 


RRR 
geeeeee 


PERSECESS 


é 
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TEST CODE SECTION 
' 
BGNTST; 


'o+ 


: TEST NUMBER: TST 47 
i TEST NAME: WRITE READ ML11 
i TEST DESCRIPTION: 


PROVIDES A MBUS READ/WRITE 
es a TROUBLE SHOOTING 





1. LOAD APPROPRIATE RH REGISTERS. 
DO A WRITE FUNCTION. 


t 

' 

3 

a 

4 

: 

f 

‘ 

' 

' 

' 

i 2. LOAD APPROPRIATE RH REGISTERS 
; DO A WRITE CHECK FUNCTION. 
' 
t 
i 
! 
: 
§ 
4 
u 
‘ 
' 
¢ 












3. COMPLIMENT DATA AND 
REPEAT. 


' IMPLICIT INPUTS: 





Srmar~1985 16:33:04 — TOPS-20 Bliss=16 v2(212) 


TST_PAT: 'TEST PATTERN 


TST_PAT = %0°052525": 


incr Twice from 0 to 1 do ‘WRITE READ 1°S AND 0°S ON MBUS 







Cc age 


ONE; 
Oy BUF = .TST_PAT: 
6D BLK_XFER (: 
Tone ou “Lo0: 
CLRRBUS: : 


oD BLK. is oi. 
TIME_OUT_ LOOP: 





SSees xz 
w MOOS ysHWu Ww 


SESISSISSSERPLELEL RR 


ed 


SREREREREL 


ered wesc 





















4 
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T CODE SECTION SEQ 0455 
: 9-Mar-1982 16:23: TOPS-20 Bliss-16 v2(212) 
or TEST CODE SECTION Sarno 1965 16:57:03 PA:<NEALE>ML4AD.BLI.4 (99) 
: if .wce 1S_SET 'SEE IF WRITE CHECK ERROR SET 
; PRADF (109, TRBLE.LOOP, DUMPER): mauretelienid 
: PRINTE (SIX_FMT, FNC_4, WRD_10, WRD_12, FNC_5S, FNC_6, FNC_3); 
; TST_PAT = not .TST_PAT: 'COMPLIMENT TST_PAT AND REPEAT 
: vs end; 
: 9676 ENDTST: 
ii ann grt $147 TEST CODE SECTION on 
77808 beae3e ‘ 5350 : %, TST.PAT 9650 
Tras 900040 1$ Rees oss 
1 i MOV . 
rise Sree ssh me 
ree 180077 S 
77444 1 3 9655 
776 10167 MOV : TST.PAT,* 9656 
774 004 7? : 9657 
77 MOV 5 9658 
in | a 
77476 1 BISB QML .REG+40 : 9659 
10 ba 709 i BIC Ro 
14 dA 90000 Bice a ar .REG 
15 18 115710 BIse | a6 mi REG : 9661 
262 12055 JSR Pe 6D.BLK.XFER ; 
1 1 115636 MOV 1, aML.REG : 966 
i388 777 (115702 3S: TST -REG+ 
oe art 040000 115662 BT #40000, aL .REG+40 : 9666 
1 30 PhAP $ $ 9669 
155 «WORD 155 
77 30 “WORD 
Fass Sinise fete 2 - 
oboe 12746 012216 MOV °=(SP) 








NS ee eet ee 


F_4 
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CZMLADO ML=11 LOGIC 
$147 TEST CODE SECTION SEQ 0456 
:ML4AD r-1982 16:23:04 TOPS 
: TEST CODE SECTION r=19B2 16: 33: :03 = PA:< 
77610 1 MOV #URD. font: 10:23 += (SP) 
77614 1 MOV 
1 MOV gFNC 4 (SP) 
077624 1 MOV asx: FAT. = (SP) 
077 MOV 
a MOV 3; SP,* 
: TRAP 14. 
77 000020 ADD #20.SP ; 9668 
77 1 4$: COM R1 s TST.PAT 9673 
77 INC R : TWICE 9652 
77 000001 CMP R2,41 : TWICE,* 
77 ? BLE 1 
77656 7 RTS PC F 9612 


3; Routine Size: 87 wo 
3; Maximum stack depth. - invocation: 11 words 


147 TEST CODE SECTION 


- 3 9674 
1 
PC | 


Rout ine Size: 
Maximum stack ps per invocation: 0 words 


177516 








Q 9677 !<BLF/PAGE> 


CFRLADO ML 
147 TEST CODE SE 


+ 
“a 


SOC 
-_ 


* nd) 


Se 
PUR WO OC 


“11 L 





0000000 
UW 


000 
SS 


EST 


TEST CODE SECTION 


i 
BGNTST: 


te4 
! TEST NUMBER: TST 48 
TEST NAME: CRC DATA BUS TEST 


TEST DESCRIPTION: 





ORS AND THE 





one EXER 
UNI QUENE 







DATA PATT 
IMPLICIT INPUTS: 
PD_TEMP 






NIB_ PAT: 
CLR_ perenne: 
CRC_NIB = 
DODO_FLG = ZERO; 
iner —_ from 0 to 4 do 





CLR_MBUS; 
ECC"DM = ONE: 


case .LOOP from 0 to 4 of 
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G 4 
PAGE 474 


DATA 


1. WHILE IN ECC DIAGNOSTIC MODE DO 
TRANSFERS WITH VARIOUS 
CRC_B AND PAR 
RUISE BUS CONTINUITY AND 





CRC_WRD WH 


TEST THE CRC DATA BUS BETWEEN THE CRC 
GENERAT CRC/MBUS 
a FOR CONTINUITY AND BIT UNIQUENESS 





WHICH 


THEN IN DATA pe Agas rec MODE READ 
re CRC NIBBLES FROM ONE CRC 
FOR yy AND PAR_CRC_WRD 


EAD 
ROM. 






sonar =1985 10 


13303 


PA: <NEALE>ML4AD.BL1.4 


. TEMP STORAGE FOR E1 DATA WORD 
UNIT FLAG 






i POINTER TO THE CRC NIBBLE 
‘STORES 


By MANY CRC NIBBLES WE HAVE TESTED 
iTEST DATA FOR THE CRC NIBBLE 

‘CLEAR ERROR PRINT THRESHOLD 

iSET CRC NIBBLE POINTER 

‘CLEAR THE DROP UNIT FLAG 

‘REPEAT THE TEST WITH FIVE NIBBLE PATTERNS 


‘START OF THE SCOPE LOOP 








‘SET ECC DIAG MOD 


‘SELECT ONE OF THE FIVE NIBBLE PATTERNS 


TOPS-20 Bliss-16 WaCete? 


(100) 


SEQ 0457 | 


a i ee Sen 





ee Sanne ee 


H & 
et ML~11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 475 
T47 TEST CODE SECTION 

2077 3MLSAD 

sks $ TEST CODE SECTION 


SEQ 0458 






r-1982 16:23: TOPS-20 Bliss-16 V2(212) 
ae iat 16:57:03 PA: <NEALE>ML4AD.BLI.4 (100) 

























3 3 : set 
: 9 0) : 'PATTERN 0 
; 97 . NIB_PAT = %b*110°: 
: 9 5 (1) : ‘PATTERN 1 
Ps n 
wae RE Sat 
; ; 
; 9 NIB_PAT = 36001": 
: end; 
: (2) 'PATTERN 2 
99 ae 'PATTERN 3 
oe ; Pall Rc un = ONES; 
; _ : 
; NIB-PAT = fb'011": 
: end; 
- [4] : 'PATTERN 4 
é = begin : 
5198 ; | THE FOLLOWING ASSIGNMENT: 
: 1 : MLE1 = .TMP_E1 
ig : i 1S EQUIVALENT TO THE FOLLOWING 
g 13: : TWO ASSINGMENTS: 
+ 16 : ! PAR_CRC_WRD = ONES; !LOAD PAR_CRC_WRD WITH REM_TBL 
z ! ; :  CRCLA = ONES; ‘TOAD CRC_A WITH REM_TBL 
y 18 : i THIS 1S NECESSARY DUE TO THE FACT THAT 
99120 ; | THE €1 REGISTER Is WORD OR NTATED AND 
2121 ; ! THE BLISS COMPILER GENERATES BYTE INST 
a4 i TO ACCESS THE REGISTER. 
2126 : 
2125 ; 'CLEAR OUT THE TEMP WORD 
2126 ; 'LOAD CRC_A WITH RE 
107 : 1LOAD PAR-CRC_WRD ul! H REM_TBL 
3128 (LOAD THE E1 REGISTER WITH DATA 
52130 ; NIB_PAT = %b'101"; 


end; 


=d 


were owe eee 


ee cee ne ee - 
eine LL LE LS TE EE ET LE ET ST 


| 


~~ ee eee 
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147 TEST CODE SECTION SEQ 0459 


2" TEST CODE SECTION B9-nar-1980 16:51:03 | PRseNERLESALEAD BL Te {100 


tes; 


MFER (); set ue 
mists oar tee 


C 
i 
















are oe Foy TRANSFER 


"WA ar IL DRIVE READY 
iSET Up ise DI 


GD : B.A 6008 BLOCK TRANSFER 
cre CSTE. bs gro: 


do ‘TEST ONE CRC GROUP °6 CRC NIBBLES’ 


!READ THE PROM DATA FOR THIS ARRAY WORD 

CLOCK OUT AN ARRAY WORD INTO THE DATA DIAG REG’S 
‘DELAY ONE MICRO SECOND 

‘READ THE DATA DIAG REG’S INTO MEMORY 





_ 
wOoOoOoOo0oOo 





3333 3 





™ 


UNUBSERSS PRESET 

















TANENT NENT NTA NT AT NTT AT ANT NT ANT AT ANE ANT AT ANT ANT NT At Nd 


WaPo 


. ee FLG IS_SET 


“ge _— LUN); 


ee 


+> 


oy 


PNAC ACTA T AN AN S 





: if PD. TEMP [.CRC_NIB) IS_NOT_SET ‘TEST THIS CRC NIGBLE IF GOOD 
3 CRE TSTED = .CRC_TSTED + 'INCREMENT THE GOOD NIBBLE COUNTER 
38 TST~LNG_ wap (.c _NIB, ‘nie. PAT, ERR_FLG): !TEST THE CRC NIBBLE 
60 if -ERR_FLG 1S_SET ‘SEE IF THE TEST FOUND AN ERROR 
é3 begin 'REPORT ERROR IF FLAG IS SET 
Saat 'COMPARE ERROR PRINT THRESHOLD 
64 + DUMBER): : 
¢ F F Lome -NIB_PAT. “AB SAVE. CRIB CRIB *9] ate 
$$ $ ULFLG = One: nee HE DROP UNIT FLAG 
§ es 
if § end; 
Le: : end 
A until .CRC_TSTED eql 6: !REPEAT UNTIL ONE CRC GROUP HAS BEEN TESTED 
75 ENDSUB; ‘END OF SCOPE LOOP 
26 end: 


Ott at at et et at at at at et epee he habeas 


cs 
= > 
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. SEQ 0460 
1 
194 -SBTTL $148 TEST CODE SECTION | 
1 $148: JSR R1 SsAvES : | 
3193 up aie SP na 
4! ; : 
22201 nov vil (SP) ; #,CRC.NIB Lal 
22 2 CLR 6(SP) : DODU.FLS 3759 | 
> +> on RT ; LOOP 9723 
222 a 2 $736 
z 115512 BISB #40 AL -REG+40 ; 9725 
115474 
115542 ; 7 
: LOOP, 3750 


(RS) ,PC 

















MOV 
BIC 
al 
a 
B1 
ASL 
WORD 
“WORD 
| WORD 
R a ; *,NIB.PAT 
mOV #1. .REG*150 : 
MOV #1, 9ML .REG*1 : 
nov a1 AS . + *,NIB.PAT 
Bise Prt RECs 100 ; 
sine ; NIB.PAT 
: s. ; 
00 ; 3 *,NIB.PAT 
‘i Cc ; THP.ET 
x ’ Theis 
x MOV iM : *,NIB.PAT 
“i 8$: JSR GD .BLK XF ER > 
i‘ 115250 1am. ; 
+ Og: Tee ee: ’ 
nC 115354 -REG*120 : 
+, J PC 6D.BLK.XFER : 
i 115222 MOV 971 ,@ML REG ; 








—_——— 


eee = 
a 7 . 


K_ 4 
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$148 TEST CODE SECTION SEQ 0461 


































45 :MLGAD 29-Mar-1982 16:23:04 TOPS. 
: 46 : TEST CODE SECTION Somer} 98 16:57 .03 PA:< 
48 1001 CLR 4(SP) : CRC.TSTED 9 
3 49 1004 MOV #1, R4 ; 0 SST APD oro 
» 1001 10$ BEQ 13$ 
3 51 1001 MOV LSDLY.RS : *,SSTMP1 
2§ 10 BEQ $ 
53 1¢ 11$: CLR 12(SP) : SSTMP 
1¢ DEC R : $STMP1 
Bes 100; BNE 11$ 
56 100¢ 12$: DEC Rs " : SSTMP2 
10¢ 13$ MOV (SP) ,R2 : CRC.NIB,* 9800 
$8 10 ASR R 
af 106 ASR OR 
ag 100 115102 148: mov *REC+S80 .PD. TEMP 9795 
100 11e2¢6 Biss of anit 6+120 : 9796 
1C MOV R + ©, $STMP2 9797 
15$: BEQ 
MOV 3 *,SSTMP1 
BEQ 
16$: CLR : SSTMP 
DEC : SSTMP1 
BNE és 
178: = Ree : SSTMP2 
113070 18$: MOV G+ -D1. TEMP 
11 MOV 6+200,D2.T 
11 nov Ge £2. TEMP 
MOV Se : CRC.NIB,* ; 
BIC 
no 
Ssh 
‘4 > ; wer 
10¢ 52 
: io 54 ONE : CRC. TSTED 9803 
10036, MOV : CRC.NIB,* 9804 
i: 10056. mov ; NIB.PAT,* 
30 10057¢ ADD ° : ERR.FLG.* 
ie 100576 000001 we (SP) #1 ; ERR.FLG,* 9806 
100406 INC P.CNT : 5808 
3 10061¢ 114760 cw PggNT LIMIT 
100626 E 1 
e908 wp as, 
9 106 5 19$: TRAP § 3 9810 | 








4 
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$748 TEST C TI 






ODE SECTION SEQ 0462 
1 sML4AD 9-Mar-1 16:23:04 TOPS | 
5c : TEST CODE SECTION a at 16357293 PA:< 
C 203 | 
sc SYNC | 
07 #uRD. 10, (SP) 9811 
308 #WRD.73,~(SP) ‘ 

3 #WRD.24.~(SP) 





#WRD.64.-(SP) 
#FOR.FMT,~(SP) 
»~ (SP) 


2RO 3 SP,* 








ce ed ed ed eed ced ceed eh eee ee ee eed ee 


1 
31 
1 
1 
1 
1 
1 
1 
1 
7 









0 

: 2 1271 10 #10, (SP) 9812 
} 6 1690 13ers OV NIB. SAVE+4 .RS , 
z 81 5 ASR R 
5379 1 ASR R 
et | ; he 
9322 1 5 177770 BIC #177770,R5 
535 i 61 mov ORR pe 3 NIB.PAT 

~ = P+ a o* 
5325 1 01 706 006650 MOV aFAT 3 =(SP) 
5358 | 166 - su” ie 
ase | 013766 000001 000040 nov ex a FLG 9813 

6 Y 2, s 
2330 Ono 706 000024 ADD #24,SP : 9808 
2332 1 599 $0000s 90904 000006 21$: CMP #6 : CRC. TSTED,* sts 
3333 1 001221 BNE 
12334 1 1 22$: TRAP 
ie 1 BHI 
2336 
sat | bos207 Sis: inc LOOP 9723 
ett 1 127 000004 "CMP ; LOOP,* 
et | BE 
th 1 000006 000001 cn { »,#1 : DODU.FLG,* 9824 
12343 1 016700 115202 MOV LUN, RO : 9827 
12344 1 104451 TRAP 
Sere | i 000014 25$: ADD : 9676 
x 1 865509 "RTS F 
54 3; Routine Size: 242 word 


s 
; Maximum stack depth per invocation: 25 words 


Sy tet ~11 LOGIC TEST 
$748 TEST CODE SEC TION 





M4 
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‘ 168:: -SBTTL 148 TEST CODE SECTION 
8 767 177030 1$: JSR s ; 
1 ROR R 

71 1 ; BLO 1 
1 20 RTS PC 

4 3; Routine Size: words 

75 : Maximum stack depth per invocation: 0 words 

5 9832 '!<BLF/PAGE> 


SEQ 0465 


9829 | 


N 4 
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CZMLADO ML-11 LOGIC T 
T CODE SECTION 
;ML4AD 9-Mar-1982 16:23:04  TOPS~20 BLiss-16 V 
5; TEST CODE SECTION So-mara19B3 16:37:05 Bi : <NEALEDMLGAD BL 
; > J 
: 4 GGNTST; 
: lee . 
; i TEST NUMBER: TST 49 
; ; 7 TEST NAME: § UNIQUE NIBBLE CRC GENERATION TEST 
; 1 ! TEST DESCRIPTION: 
; i TEST CRC CODES GENERATED FOR ONE CRC 
(52 UNIQUE UNIBUS NIBBLES) BY: 
; 5 i 1 ps BOING,MASS BUS WRITE | TRANSEERSS WITH THE 
eco | OF #50000" PATTERN AND THE RERAINING-NIBBLE 
; 9848 WITH PATTERNS OF %B° bot AIRING ie 
; 9850 2. THEN IN DATA DIAGNOSTIC MODE CALCULATE 
; 9851 | THE CRC CODE FOR THE FIRST CRC 
; 9852 i GROUP AND C IT AGAINST THE 
22407 : 9835 HARDWARE GENERATED CRC CODE. 
; 9855 | 3. REPEAT PATTERN OF 38°0000° TO 28°1111" 
10 9856 FOR EACH OF THE 52 NIBBLES. 
412 ; 9858 IMPLICIT INPUTS: 
13 9859 i 10_BUF 
22414 : 9860 | DATA 
15; 9861 | FERS 
416 : oa0¢ 
418 : ei 
12419 : 9865 i-- 
420 ; 9866 
2421 ; 7 local 
12422 : DoDU_FLG. | PROD UNIT FLAG ton 
£ : 
2606 ; 9870 Ni8_SEL; | TeReORan BITS “ONE NIGBLE* FROM THE 10_BUF 
525%: 
2426 : DODU_FLG = ZEROES; , 'CLEAR THE DROP UNIT FLAG 
22607 ; fe CLR_THRESHOLD; 3 ICLEAR ERROR PRINT THRESHOLD 
02409 : 75 incr ONT from 0 to 13 do ICLEAR THE FIRST 14 10_BUF WORDS 
26 : a6 10_BUF C.CNiJ = 7EROES; | | 
52432 : 78 incr WRD-CNT from 0 to 12 do !DO THIS TEST ON 13 I0_BUF WORDS 
50634 NIB_SEL = ~6; IRESET THE NIBBLE SELECTOR 
: 434 ; incr. Me. IST from 0 to 3 do !D0 THIS TEST ON 4 NIBBLES PER WORD 
438 ; : 


5 ae 


& 
ee ts ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 482 
T48 TEST CODE SECTION SEQ 0465 
3sML4AD r=1 16:23: TOPS-20 Bliss-16 V2(212) 
x. 3 TEST CODE SECTION Somer 1385 18:53:98 PA:<NEALE>ML4AD.BLI.4 (101) 
; if (.WRD_CNT eql 12) and (.NIB_TST eql 2) then exitloop; 'THE LAST 2 NIGBLES ARE NOT TESTED 





NIB_SEL = .NIB_SEL + 4; ‘INCREMENT THE NIGBLE SELECTED 
TEMP = ZEROES; :CLEAR TEMP LOCATION 


incr ~~ "teed from %b°0000° to %b°1111° by 2b°0001" do !RUN PATTERNS ON THEIS NIBBLE 
‘START OF SCOPE L 


; ooP 
TEMP<.NIB_ SEL, 4> = .NIB_PAT; ‘LOAD PATTERN INTO TEMP_AT THIS NIBBLE 
10_BUF C= ORD ENT} = . TEMP; ‘LOAD THE GENERATED PATTERN INTO THE 10_BUF 





UNSSSSLERRASSS 






‘SET UP A GOOD BLOCK TRANSFER 

‘DO A WRITE TRANSFER 

‘WAIT FOR THE TRANSFER TO COMPLETE 
‘CLEAR THE GEN & CAL STORAGE LOCATIONS 








NNN AACN AAA A AAAS 
& : 





ay 


RIMINI MIMIMININIMIMIMIMINIMIMIPOMOMIN ooh: 
" x 2 
Fe Oe Se Se Be Oe ae Se Oe Se Be Oe Oe Oe Oe Oe Oe Be Be Oe Oe Be Oe Ge Be Oe Be Oe Be Be Se Oe Be we Be Oe Oe Se we Oe te Be ee Be he te te eet 


‘CALL ROUTINE TO CALCULATE THE CRC CODE FOR THIS PATTERN 


tte 
| 
zz 
ennnnuu 
Cl en Li} ~~ 
~BEEa235 
Se 
t-te 
awn od 
a 





; 


ayy 





5 _CHK_ ‘NOW SEE IF THE GEN CRC IS SAME AS CAL CRC 
ae 'REPORT THE ERROR IF NOT THE SAME 
.. ‘COMPARE ERROR PRINT THRESHOLD 
; WRD_64, WRD_8); 
-P_GEN); 
-P"CAL): 


‘END OF SCOPE LOOP 





10_ BUF C.WRD_CNT) = ZEROES: 'CLEAR THIS I0_BUF WORD FO NEXT NIBBLE 
my ; 
Be end; 
4 82 if .DODU_FLG 1S_SET ‘DROP THIS UNIT IF THE DODU FLAG GOT SET 
4 DOBU <.AL_LUND ; 
Pe DOCLN; 

end; 





Sgt pangegs2e292052095 5705595 0400705088% 





ENDTST; 





5 
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SEQ 0466 | 
sML4AD ~1 16:23: T | 
: TEST CODE SECTION ra1989 16291208 Paes | 
$149 TEST CODE SECTION 
! 54 103732 $749: gSSAVES ; 9831 
1 2 2(SP)° 3 DODU.F 
110584 pent = oe 
22909 ? 1$: RO.R1 : CNT, * 9876 
: i 014022 10. BUF (R1) iene me 
13 106 20 000015 RO.#15 | : CNT, * ) 
2515 10071 R2 : WRD.CNT 9878 
16 1 71 177774 2$: #~4, (SP) : *,NIB. SEL 9880 
x } a | R2.R1 + WRD.CNT,* 9894 
19 1 RG ; NIB.TST 92Be 
25 000014 3$: Re.a14 : WRD.CNT,* 9885 
28 000002 RG 42 ; NIB.TST,* 
i 000004 4$ #4. (SP) : *,NIB.SEL 9887 
51 RR : NIB.PAT 9890 
? &5.-(SP) : TEMP, « 3893 
000002 2(SP) .=(SP) : NIB.SEL,* 
1 R3,-(SP) : NIB.PAT,* 
1 103000 ‘ 
1 014022 oll : Time +4 
1 0 114432 #40, aml .REG+40 ; ° 
3 115014 RO 
é it 1144146 ‘ 
Fl 11725 PC.GD.BLK.XFER : 9896 
: 1 114336 ee G ; 9897 
} 11 : an .REG* 
1 114310 : 
1 114 g 3900) 
,y Hie Ae 9901 
r ° é 
1 114 B. CAL : 3908 
1 116 CLR P. CAL : 9904 
1 115 JSR PC, CAL.CRC : 9905 











re essen 


d 
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SEQ 0467 
| 
sML4AD oj 16:23:04 TOPS 
: TEST CODE SECTION am id SY a a 
! 1 116326 SR —_— : 9907 
1o112 114252 ine OBFNT 9909 
1011 110306 114246 CMP P.CNT,LIMIT . 
1011 BLE 7$ 
1011 000010 ADD #10.SP 
191142 7$: TRAP 33 : 9911 
% 1011 . WORD 
B 1olise “NORD BUMPER 
¥, 10115¢ 5 (01 MOV pono 60,<teh : 9912 
$8 10115¢ 7 11866 MOV #WRD.64,-(SP) 
9 1011¢ 5 01 32 MOV #URD.5,~(SP) 
101166 5 (01 MOV #THR. FAT, -(SP) 
10117¢ , MOV #4,-(SP) 
101776 50( MOV -RO : SP,* 
1oise2 onerie 1161 TOY sé GEN. (SP) 9913 
101206 016746 ieee MOV =A. GEN. =(SP) ° 
: 191214 746 1141 MOV 8. GEN, (SP) 
1 7 7 MOV #FMT.19, (SP) 
10122¢ 7 MOV #4 .=(SP) 
> 101226 MOV : : SP,* 
1 101S32 ONerie 1161 ROY PCA. (SP) 9914 
B2 101236 016746 Wai30 MOV A.CAL,=(SP) ' 
101242 016746 11411 MOV B. CAL .-(SP) 
10124¢ 746 7709 MOV SFMT.00,-(SP) 
101952 919746 000006 MOV #4, = (SPS 
101260 10 Tap ig Seer 
8B 101262 012766 1 000044 MOV —s-: #1,44( SP) : *,DODU.FLG 9915 
> 101276 : ADD #32,SP : 9909 
0 101274 : 1 8$: ADD #10,SP ; 9891 
1¢ TRAP = & : 9916 
2 1013 ROR 
az i os: Fue : NIB.PAT 9890 
| a 000017 : cn A17 : NIB.PAT,* 
7 1 01316 014022 CLR 10.BuF (R1) Fai ae 9921 
- a . 000003 cn R443 : NIB.TST,* 
101332 177372 SMP 
10133¢ 10$: INC R : WRD.CNT 9878 
101 oC 000014 cn Re 14 : WRD.CNT,* 
101 34¢ 177344 JMP 
§ 10135z 000002 000001 11%: CMP Stsp) oat : DODU.FLG.* 9926 





CZ 
$14 





767 177252 


pat ! 
9935 !<BLF/PAGE> 


5 
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sML4AD 
: TEST CODE SECTION 
MOV -LUN,RO 
TRAP 3 
TRAP 44 
12$: CMP all tale 
RTS PC 


3; Routine Size: 169 words 
: Maximum stack depth per invocation: 


~SBTTL 149 TEST CODE SECTION 


T 

1$: JSR PC ,$T49 
TRAP : 
ROR 
BLO : 


RTS PC 


; Routine Size: words 
: Maximum stack doth per invocation: 








25 words 


0 words 


$o-more} 





SEG 0468 


39:03 


TOPS 
PA:< 


9929 


9831 


9931 





F § 
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149 TEST CODE SECTION 
:ML4AD 3: TOPS-20 Bliss-16 V2(212) 
: TEST CODE SECTION on mario 18; $3 ‘83 PA:<NEALE>ML4AD.BLI.4 (102) 
€ 
QGNTST: 
lee 
' TEST NUMBER: TST 50 
i TEST NAME: UNIQUE WORD CRC GENERATION TEST 


i TEST DESCRIPTION: 
i og CODES GENERATED FOR ONE 
UNIBUS WORDS) BY: 





the 
1. DOING MASS BUS WRITE TRANSFERS 


USING VARIOUS WORD DATA PATTERENS. 


THEN IN DATA DIAGNOSTIC MODE 
CALCULATE THE CRC CODE FOR THE 
FIRST CRC GROUP AND COMPARE IT TO 
THE HARDWARE GENERATED CRC CODE. 


' IMPLICIT INPUTS: 


é. 

















local 
DODU_FLG, 'DROP UNIT FLAG 
TST_PAT; TEST PATTERN SAVE LOCATION 
DODU_FLG = ZEROES; | 'CLEAR THE DROP UNIT FLAG 
incr PAT SEL from 0 to 3 do 'RUN THE TEST ON 4 PATTERNS 
: 'START OF SCOPE LOOP 
CLR_MBUS; 3 
case achat Set from 0 to 3 of ‘SELECT ONE OF THE 4 PATTERNS 
[0] : 
TST_ PAT = ONES; 
C1] 


TST_PAT = %0°052525": 


J: 
TST_PAT = %0°125252'; 
(3) : 





ci 2s SERERERRAKI Sst oti ot SSAA CRA RSIS LI aT ES ONNN 





5 
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aN SEQ 0470 — 


Zo-Mar-1982 16:23:04 — TOPS-20 BLiss-16 ¥2(212) 


CFRLADO ML-11 LOGI 
T49 TEST CODE SECT 
7 sML4AD 






























5 2 TEST CODE SECTION 9-Mar-19 PA:<NEALE>ML4AD.BLI.4 (102) 
711; TST_PAT = %0°070707": 
ar : tes; 
714: 9991 incr CNT from 0 to 255 do !LOAD THE FIRST 13 I0_BUF WORDS WITH TST_PAT 
iat : 9996 10_BUF C.CNT) = .TST_PAT: 
siti : 9994 GD_BLK_XFER ():; | 'SET UP_A GOOD BLOCK TRANSFER 
718 : 9995 mLUS1 = write: iDO A WRITE TRANSFER 
557 : 99% TI LOOP: iWAIT FOR THE TRANSFER TO COMPLETE 
50720 : 999 A_GEN = ZEROES; ICLEAR THE GEN & CAL SAVE LOCATIONS 
1: 9998 B-GEN = ZEROES: 
4 : P_ = ZEROES; 
: i A-CAL = ZEROES: 
10001 B-CAL = ZEROES: 
5: 1 ¢ P~CAL = ZEROES: 
; : CAL_crc ©: 'CALCULATE WHAT THE CRC CODE SHOULD BE 
f. Ps 
x. : ! 5 it € CHK_CRC () INOW SEE IF THE GENERATED CRC CODE IS THE SAME 
2750 : : in . ‘REPORT THE ERROR IF NOT THE SAME 
: 1000S PRINTB ( 
: 10010 PRINTB (FMT~19, .B GEN 
; 10017 PRINTB (FMT~20. . 
2 : 1 1 DODU_FLG = 
; ‘ \* 7 end; 
3 ; ior ENDSUB; 'END OF SCOPE LOOP 
2740 : 1001 : 
5 741 : 10018 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF THE DODU FLAG GOT SET 
res | 10020 °° begin 
44 : 100 bSBu (.ML_LUN); 
an a. 
2747 : 1 : 
Het : 10025 ENDTST; 
27’ 
-SBTTL $150 TEST CODE SECTION 
sf 10141 7? 103176 $750: JSR R1,$SAVES : 99 
22758 1014 CLR ; DODU.FLG 
3759 1 CLR RZ : PAT.SEL 99 
5761 1O1ede | sanr2 disp $40, 0m. e*<0 : 397) 
Sake & Py 
762 1oless 16705 Srashe | MOV ML .OUTCAS” 








ed ed ed eed eed ee ceed ed eed eed eed 


=), = 


’ 
4 
' 
' 
’ 
’ 
’ 
i 
‘ 
' 
' 
’ 
’ 
‘ 
' 
, 
4 
5 
’ 
’ 
' 
' 
} 

’ 
’ 

’ 
’ 

‘ 
’ 

’ 

4 
' 

' 
’ 

‘ 
’ 


sw : 4+ 4 
eB eal teed met vot cond cd vemtb onal tech wads weak mab cred cord cergh ee ond el ed eed coed cd nd coed end eed eed ceed ee ot om eed eed ceed eed ee cect ed ce 
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009007 113774 


101464 


eed ch ack erat) ced cosh ax vu 


woh cad cad rele wed cet cach acd 


ra 
ARO 


113626 


sPMLSAD 





books ele] 
& 






SmdasPes see *Seeescee 


~~ 
a) 
a 


Sesser 


Saar 
SS 






a 
“ 


5 


: 
3 


20 :822222; 





5 


TEST CODE SECTION 


#177770,R3 
tee neat 
RRS 







(RS) ,PC 


5$- 


2525 .,R1 

#-52526,R1 
: 707,R1 

R2.R3 

R17, 10.BUF (R3) 

Re ,4377 

A Th a 


— 
8 GEN 


P.GEN 














aS 


eee > 


CAL .CRC 
ERR. CHK .CRC 


5 5 
one €¢ 6 8 






#4, 

SP RO 

Te 

P.GEN, (SP) 
A.GEN,-(SP) 
8.GEN,-(SP) 


Eee 
~ — 





PAT.SEL,* 


*, TST.PAT 
*, TST.PAT 
«, TST.PAT 
*,TST.PAT 
CAT 

CNT,* 
TST.PAT,* 
NT 

CNT,* 


SP,* 


SEQ 0471 


S SSSeN3s 32 3 SeeSs5853 


awh 


1001 


rIQEE 16:33:06 Jae: 


; 
; 





eee NES 


SEQ 0472 


r-1 16:23:04 TOPS | 
r=-1 16:21:03 PA:< | 






: TEST CODE SECTION 


#FMT.19,-(SP) 
#4,-(SP5 





; 1001 


| 
e SP,* 
: *,DODU.FLG 1001 
: : 1000 
: 1001 
; PAT .SEL 9970 





PAT.SEL,* 


: DODU.FLG 1001 
11$ 


SBEn?gs2ssb8s8SsSSs522 
SeoatmesoeEsee 2 


4&4 
11$: RTS PC 


s Routine Size: 129 words 
: Maximum stack depth per invocation: 19 words 


8 
v" 


-SBTTL 150 TEST CODE SECTION 
PC,.$T50 


Se 
— 





; Routine Size: 6 words 
> Maximum stack depth per invocation: 0 words 





ee ee 
Se een 
-—_->— <= 


J 
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SEQ 0475 


-- — a + ree ee 


10026 !<BLF/PAGE> 


a ML~11 
T50 TEST CODE 


; 


5 00 OD Co co 00 00 CDC 


: 


+H 
+t 


WMO. 


2 OONOUBWIN © 


— 


a 


at 





sML4AD 
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LOGIC TEST 
SECTION 
9-Mar-1982 16:23:06 
TEST CODE SECTION ae iS 18; 1:03 
1 ' 
199 BGNTST:; 
i 'e¢ 
1 ; TEST NUMBER: TST 51 
TEST NAME: CORRECTABLE ERROR SYNDRONE DECODE TEST 
10035 ! TEST DESCRIPTION: 
1 i TEST SYNDRONE DECODE AND ERROR 
1 CORRECTION TO DECODE AND CORRECT 
1 SINGLE BIT AND MULTIPLE BIT 
3 CHANNEL ERRORS BY: 
10041 1. VIA ECC DIAG MODE FORCE SYNDRONE 
1 : BITS TO DECODE SINGLE BIT AND 
1004 MULTIPLE BIT CHANNEL ERRORS. 


++ 


eo 


+_+ + 


Tint ose 5S0¢ 


ed ed eed eed eed eed ed ed ed ee ced eee coe eed ed ees eed ee een ee ee eed eed ce eed ceed ced ec ee cd cee ec eed eed 





. OUT _LOOP; 
BITS _XFERED = -1; 


THEN DO A_MASS BUS READ TRANSFER 
AND EXAM THE I0 BUF FOR CORRECT 
BIT COMPLIMENTING. 


i IMPLICIT INPUTS: 


10_BUF 
A “VECTOR OF 256 WORDS WHERE D 
FOR MBUS READS AND WRITES TRANSFERS 





; 
i 
' 
' 
‘ 
‘ 
f 
' 
i 
' 
! 
i 
2. 
a 
a 
f 
' 
' 
' 
bs 
' 
' 
‘ 
a 


ocal 
BITS_XFERED: 

CLR_ THRESHOLD: 

BAI™= ONE; 

10_BUF = ZEROES; 

mtst 2 wri wri as 


‘CLEAR ERROR PRINT 








9 incr PLOG from 0 to 5 do 
begin 


iner CONBEL from 0 to 35 do 





:CLEAR THE DRIVE 





CLR_MBUS; 
BITS_XFERED = .BITS_XFERED + 1: 
incr CNT from 0 to 255 do 


esse atesssssessnssssssssnesnessnenseseseenensieeneneneeereeeeseeeeess 


‘POINTS TO THE CHANNEL BEING TESTED 


SEQ 0474 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4AD.BL1.4 (103) 





THRESHOLD 
‘BEFORE WE START LETS CLEAR OUT THE ML11°S 
!GOOD BLOCK BY WRITTING ZEROES TO IT 


!RESET THE CHANNEL POINTER 
‘TEST ONE CRC GROUP ‘6 ARRAY WORDS‘ 


_ !TEST 36 BITS IN EACH ARRAY WORD 
: ‘START OF SCOPE LOOP 

VINCREMENT THE CHANNEL POINTER 

!CLEAR THE FIRST CRC GROUP IN THE 10_BUF 


CZMLADO ML-11 
T30 TEST CODE 


ig nw 





NT NTATS 


Beas 


BReER 


970 
71 
78 
974 
975 
976 


. 
* 
>. 
o 
as 
* 
. 
e 
* 
« 
- 
- 
. 
e 
* 
& 
7 
a 
* 
oe 
« 
a 
. 
Ye 
. 
a 
* 
oe 
a 
a 
. 
o 
~ 
° 
7 
e 
” 
a 
. 
ae 
oF 
ca 
. 
° 
« 
e 
* 
a 
7 
oe 
. 
e 
~ 
a 
. 
@ 
° 
6 
° 
Oo 
. 
e 
~ 
& 
° 
& 
. 
e 
« 
e 
e 
e 
o 
& 
° 
e 
. 
2 
cm 
° 
o 
© 
* 
a 
é 
oT 
o 
® 
a 
* 
Y 
* 
c 
© 
a 
© 
e 
8 
e 
* 
2 
* 
a 


. . ~ ~. “4 


wey 


L 
Ss 


0G 
EC 









IC TEST 
TION 

TEST CODE SECTION 
1007 10_8UF C.CNT] = ZEROES; 
1008 FORCE REM (.PLOG, . CHANNEL); 
1008 GD _BLR_XFER (); 
1008 DIS = ZERO; 
1008 ead; 
1008 .OUT_LOOP; 


if not FIND_COMP_BIT (.BITS_XFERED) 





then 
om 
CMP_ THRESHOLD: 
ERRDF (134, SYNC, DUMPER): 
PRINTB (THR_FMT, WRD 74, 


PRINTB (FMT-21, .PLOG, .CHANNEL); 


incr WRD_CNT from 0 to 12 do 
if .10_BUF C.WRD_CNTJ neq ZEROES 
then 


sessosessssssesses 





GD BLR _XFER (5: 
ECT DIS = ZERO: 
MLCS1 = read: 
TIME_OUT_LOOP; 


incr BIT_OFFSET from 0 to 180 by 36 do 





SBONAURWVLS 


OOooocoooeoce 
ek ond ad ad ed od 
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tht " D 

HE Petre es BRT aw 
0104 PRINTB (FMT~21, .PLOG, . CHANNEL 
10105 ; 

if se 

10108 : : 

10109 - 

10110. end; 

10117 

10112 BITS_XFERED = -1: 

10114 incr CHANNEL from 0 to 35 

10118 s Sitieas 

10117 EER BUS | 

10118 BITS_XFERED = .BITS_XFERED + 1; 
101 incr CNT from 0 to 20 do 

1 10_BUF [.CNT) = ZEROES: 

$ FORCE_REM (58, .CHANNEL): 

1 

1 

1 

1 

1 

1 





SEQ 0475 


TOPS-20 Bliss-16 V2(212) 


Sormara 1985 Wecst sos | peeSue et aseateV2(212) 


IN THIS WORD IN ERROR 
: BLOCK TRANSFER 
‘CLEAR ECC DISABLE 
:DO A READ TRANSFER 
‘WAIT FOR THE TRANSFER TO COMPLETE 


‘SEARCH THE IO_BUF FOR THE COMP BIT 


‘REPORT AN ERROR IF THIS BIT IS NOT COMP 
‘COMPARE ERROR PRINT THRESHOLD 


WRD_75, PHR_1): 


‘SEE IF ANY OTHER BITS GOT COMP’ED 
‘TEST THE I0_BUF FOR ZEROES 


‘REPORT AN ERROR IF ANY OTHERS ARE SET 
‘COMPARE ERROR PRINT THRESHOLD 


g O75. PHR_5); 


‘END OF SCOPE LOOP 


'RESET THE CHANNEL POINTER 
TEST 36 CHANNELS FOR MULTIPLE BIT ERRORS 
'START OF SCOPE LOOP 

iCLEAR THE 

INCREMENT THE CHANNEL POINTER 


:CLEAR THE FIRST CRC GROUP IN THE I0_8UF 





‘FORCE ALL 6 BITS IN THIS CHANNEL IN ERROR 
‘SET UP_A GOOD BLOCK TRANSFER 

'CLEAR ECC DISABLE 

:DO A READ TRANSFER 

‘WAIT FOR THE TRANSFER TO CMOPLETE ~ 


‘SEE IF EVERY 36TH BIT GOT COMP'ED 


em eee oe me - 


| — 
ic 


+44: sML4AD 


ed eed ed ced ond od 


mn 


+> > 
xt xt 


WN "SOOOnaus 


es 


N 
+> + > 
«T 

w > 


+ 
NALA 


bie} 
, 
ont 


SO AOOOAAXIE 


— 


+ 






1 oat oat adi 
m4 
DW 
On 
sree 


ed ced and ened cond end entd cont) 


™ 


Ae 


mo 
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T30 TEST CODE $ 





m 
o 
wand 


ed ceed ceed ed eed end aed ad ened 


eee bee ee en 
FUN IS SHNOURGR OO 


cod ed ed amd 


_ 
Oo 
~N 


ee 


Ww 





TEST CODE SECTION 
i not FIND_COMP_BIT (.BITS_XFERED + .BIT_OFFSET) 
en 





(THR 


CRE THRESHOLD; 
ERRDF (isa. SYNC, D 


FMT, WR 


PRINTB 
PRINTB (FMT_21, 58, 
end; 


er 
D 74, WRD_75, 
[ CHANNELS; 


incr WRD_CNT from 0 to 12 do 
if .10_BUF C.WRD_CNT] neq ZEROES 
then 


in 
ERRDE C185. SYNC, DUMPER) ; 


PRINTS (FIV_FMT, 
PRINTE (FMT~21, 5 





113374 


113316 


113330 


113312 


$751: 











5(SP) 
#i0,an 






m5 
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WRD_61, WRD.74, WRD_75, 
8, » CHANNEL); 





REG+40 


#61 Om REG 
eREG+ 





#=1, (SP) 
RS 


mt bur, . 













wer 
R3 
ant Rees 


Somer -i9 


PHR_1); 


83 16:51:03 


et i —~= 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>ML4AD.BL1.4 (103) 


SEQ 0476 


‘SEARCH THE IO_BUF FOR THE COMP‘ED BITS 


‘REPORT AN ERROR IF ANY OF THE BITS ARE NOT COMP’ED 
‘COMPARE ERROR PRINT THRESHOLD 


‘ALSO SEE IF ANY OTHER BIT GOT COMP’ED 
‘TEST THE I0_BUF FOR ALL ZEROES 
‘REPORT AN ERROR IF 


‘END OF SCOPE LOOP 


eSBTTL $151 TEST CODE SECTION 
J R1,$SAVE 






ANY OTHERS ARE COMP*°ED 
!COMPARE ERROR PRINT THRESHOLD 


WRD_12, WRD_67); 


* BITS. XFERED 
PLOG 


CHANNEL 


; BITS.XFERED 
; CNT 


—s 


cae meh Cod ed ot 
SSSse FS858 8 


a ee oy 


eB ined 
Ss 





































nN 5 
CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 494 
$151 TEST CODE SECTION SEQ 0477 
sML4AD 9-Mar-1982 16:23:04 TOPS 
; TEST CODE SECTION $3 par = 1985 18:37 208 PA:< 
1¢ 142 4$: MOV R1,R2 ; CNT,* 1007 
3 a FF 014022 CLR 10.BUF (R2) a an 
1061 000377 CMP R1,4377 : (NT,* 
: est nov , PLOG,* 1008 
1081 0 MOV P) : CHANNEL, * 
5 1021 Harte JSR Kk ; 1008 
aS 1053 ¢ 11392 y . 1008 
3 10, 1 113236 S$: st , REGS SO : 
10222¢ | MOV SP) ,-(SP) ; BITS. XFERED,* 1008 
1032¢ 0883 JSR FIND.COMP.BIT 
2 2 32 
102236 BLO 
102236 113134 INC P.CNT : 1008 
3 1 Ht 113130 113130 cme P.CNT LIMIT 
23079 1K 25. CMP )+,(SP)+ 
23080 1022 BR $ 
33081 102256 6$: TRAP ; 1009 
93082 10226C «WORD 
5306 10286; : “GORD DUBER 
‘§}- 1d d« = 
93085 102266 1161 MOV #PHR. ) : 1009 
eIUOC 1022 11 5 MOV #URD. e* SP) 
raoee 1aSGas id MOV BTHRCEME cCSP 
73089 102306 000008 MOV © #4, = (SP) ° 
93090 10231 MOV SP. : SP,* 
23091 10231 TRAP 4 
2092 10251¢ mOV Re. (SP) ; CHANNEL ,* 1009 
2305 10232C MOV =(SP) ; PLOG,* 
130% 102322 7754 MOV art | 
Sanae 1Oseet ,: +d ao Sp.s 
53097 1093: Trap 14" _ 
23098 102336 000020 ADD ; 1008 
3099 10234. i: GR ; WRD.CNT 1009 
53100 102 : MOV : WRD.CNT,* 1009 
53101 102366 ASL R 
73102 10235( 014022 T 19.BUF (R2) 
53102 105% 367 113014 TNO BFONT ; 1010 
53107 102° RAP 3 : 1010 
‘+ 1¢ 207 j 





oo mete 


=1 


C 
$151 TE 


am be oe 





at abt ait ada wan Sas 
et ed ed ed ed ed ed 
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; 
1 
1 
1 
1 
1 
1 
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1 
1 
: 


ad 





C 
T 


TEST 





112674 


112656 


;MLSAD 


15$: 





tot i al = 
PESGrgxe g3a228 58222223 


z 


CEPEC ELE Le" 





neues 
SS 


= 





Seraaaee 


i 
SS 


TEST CODE SECTION 





R 
10.BUF (R2) 
R1 

RI #24 
#72.-(SP) 
PC. FORCE .REM 


PC.GD.BLK.XFER 


B 6 
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G+40 


SP,* 
CHANNEL , * 
PLOG,* 
SP,* 


WRD.CNT 
WRD.CNT,* 


3; CHANNEL 
3; CHANNEL ,* 


PLOG 
PLOG,* 


* BITS. XFERED 
CHANNEL 


BITS.XFERED 
CNT ,* 


CNT 
CNT,* 


CHANNEL , * 


r=-1 
r=1 
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SEQ 0478 


982 16:51:03 


TOPS 
PA:< 
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1010 


ee eet 
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51 TEST CODE SECTION : SEQ 0480 
; :ML4AD 39-Mar=1 TOPS 
5 : TEST CODE SECTION r-1 ga: 03 PA:< 
225 103100 012746 01 #FIV.FMT,-(SP) 
226 1 198 127 OT eabe #6,-(SP) 
i227 10351 1 RO : SP,* 
3228 1035112 104414 
3229 10311 1 3 Re, (SF : CHANNEL ,* 1014 
230 103116 01 ? #7e,- SSP) 
# 1031 127 a #EMT . 21,=(SP) 
[932 1031 127 3 »7 (SP) 
3235 1 1 RO : SP,* 
13234 1 14 
23235 1 000024 #24,SP : 1014 
13236 1 21$: ': WRD.CNT 1014 
art ! 44 7 000014 | R1,414 | : WRD.CNT,* 
3235 1 j 22$: | ee o(SP)+ : 1011 
23242 1 1 , 3 
H# i 365 — Sis: ;° CHANNEL 1011 
23¢ } 7 000043 a m3 #63 : CHANNEL, * 
247 1 5 TST «= (SP)+ : 1002 
iy 1 00020 RTS PC 
+ Routine Size: 309 wo 


rds 
Maximum stack depth B per invocation: 19 words 





-SBTTL 151 TEST CODE SECTION 


56 10. T51:: 

26 1 004767 176622 1$: .JSR $751 5 1015 
1 19 
103212 1 BLO 1$ 
103214 000207 RTS PC 


; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 
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10155 !<BLF/PAGE> 
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TEST CODE SECTION 


' 
BGNTST: 





local 


incr PL 
begi 


t+ 

i TEST NUMBER: TST 52 
i TEST NAME: 

: TEST DESCRIPTION: 

! 

' 






TEST SYNDRONE DECODE TO DETECT BUT 
eH a ort UNCORRECTABLE CHANNEL 





1. VIA_ECC DIAG MODE FORCE SYNDRONE 
BITS TO INDICATE CHANNEL ERRORS 





B9-mar-1968 16:51:03 





UNCORRECTABLE ERROR SYNDRONE DECODE TEST AT CHANNELS > 35 


S_OF A ERC GROUP BUT AT CHANNELS 


GREATER THAN 35. 
2. DO A MASS BUS READ TRANSFER 


3. THEN EXAMIN THE I0_ BUF FOR NO 
ents ee AND ECH AND 


IMPLI yt INPUTS: 


BUF 
A VECTOR OF 256 WORDS WHERE DA 


TA 
READS AND WRITES ERS 





FOR MBUS 
IS FOUND. 





06_SEL from 0 to 6 do 


case .PLOG_SEL from 0 to 6 of 
set 


[0] : 
PLOG = 0; 


‘INDEX INTO REMAINDER TABLE ‘REM_TBL‘ 


sat ERR ae 


C THE ML11°S GOOD BLOCK 
‘BY WRI Ne EROES TO IT 





‘TEST SYNDRONE DECODE AT 7 DIFFERENT PLOG VALUES 


‘SELECT A PLOG VALUE 


‘POINTS TO WORD 0 IN THE CRC GROUP 


LL ee SRS Easterners — 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>ML4AD.BLI.4 (104) 


SEQ 0482 


OE A ET ET ee ne me - 


| 
| 
| 
__| 
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CZMLADO ML=11 LOGIC T 
8} TEST CODE SECTION SEQ 0483 
3 ;MLGAD 9-Mar-1982 16:23: TOPS-20 Bliss-16 V2(212) 
: ~ TEST CODE SECTION fae iat 18; 408 PA:<NEALEDML4AD.BL1.4 (104) 
. ; 5 ; 10208 (1) : ‘POINTS TO WORD 1 IN THE CRC GROUP 
; 3 iH PLOG = 1; 
>: 19 11 [2] : ‘POINTS TO WORD 2 IN THE CRC GROUP 
‘ : s 19 1 PLOG = 2; 
< ; : 10214 (3) : 'POINTS TO WORD 3 IN THE CRC GROUP 
$333 10215 PLOG = 3; | 
S355 : 1¢ i3 [4] : !POINTS TO WORD 4 IN THE CRC GROUP 
a nan 
358 : 10 (5) : ‘POINTS TO WORD 5 IN THE CRC GROUP 
$ 59 ;: , 1 PLOG = 5; 
5361 : 10 g (6) : 'POINTS TO ALL 6 WORDS IN THE CRC GROUP 
5502 ; 10224 PLOG = 58; 
36: ; a 5 tes: 
365 : 1 : iner CHANNEL from 36 to 62 do 'TEST AT CHANNELS > 35 TO FORCE UNCORRECTABLE ERROR 
5566 : ‘ n 
367 : 10 : ‘START OF SCOPE LOOP 
1308 i's : CLR_MBUS; :CLEAR THE DRIVE 
itt ); 10¢ incr COUNT from 0 to 255 do !CLEAR THE FIRST CRC GROUP IN THE 10_8UF 
3571 ; 10; 10_BUF C.COUNT) = ZEROES; 
373 : 10235 FORCE_REM (.PLOG, .CHANNEL); tFORCE UNCORRE CTABLE ERROR AT THIS WORD AND CHANNEL 
376 : 10¢ GD _BLR _XFER (); Sitar’ etc Die OCK TRANSFER 
33329 i mst = ZERO; ie ECC DISABLE SABLE 
Py ' = 
35 : a 33 OuT_ fooP: iWAIT ¢ | FOR IME TR TRANSFER TO COMPLETE 
3 >: 1024) if not ((.ECH_ERR) and (.UNC_ERR)) ‘SEE IF THE ERROR WAS DETECTED 
3381 : 10948 begin ‘ERROR IF NOT DECTECTED 
see 1¢ ai i¢ ERROR PRINT THRESHOLD 
383 : 10265 ERRDF ( Rs" uran i 
384 ; 10246 PRINTS (FOR 0, WRD_76, WRD_9); 
389 10546 PRINTB (0h Ea PLOG. oC US; 
387 : 102 F 
3388 : 10986 incr CNT from 0 to 12 do 'SEE IF ANY CORRECTION WAS DONE 
iii : 10¢ 3g if .10_BUF C.CNT] neq ZEROES 'SEARCH THE I0_QUF FOR ALL ZEROES 
3339 : 102 begin T AN ERROR IF ANY CORRECTION WAS DONE 
393 ; 10255 pis Sin it ARE E PRINT THRESHOLD 
S304 : 10¢ ERRDF (137, HNC. OUMPER) : 
395 ; 1¢ PRINTS (FIV _F WRD_75, WRD_12. WRD_67); 
396 1065 PRINTE (FAT=21 1, r+ PLOG. * CHAMAELS ; 





— -- 


Ee ae —= <omes oe . —_— < 


H 
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a gee CO FF 


SEQ 0484 
Liss-16 V2(212) 
i 
1 
1 
3 
1 
1 


TOPS=-20 


PA: <NEALEDML GAD BL i -4 (104) 





0G.SEL 
0G.SEL 
PLOG 
* ,PLOG 
* ,PLOG 
* , CHANNEL 


5686 6 & 
eReee 
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Cod ~~ -_ 






TEST CODE SECTION 


=O 
RAS < 
Me = 
co 
oe eOr 
~ 


eer ae OT eee ee 
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SEQ 0485 
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TEST CODE SECTION 
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1024 
1024 
1024 
1024 
024 
025 
025 
025 


P.CNT 


z 





15$: 
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eee 
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SSS SARDINES SONS 9 Sauer ots BS 
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sML4AD 
: TEST CODE SECTION 
BGT 
TRAP 
R 
#WRD.67,-(SP) 
7 (SP) 
#WRD.75.~(SP) 
MOV #WRD.74,-(SP) 
MOV -61.=(SP) 
MOV FMT ,-(SP) 
MOV SP) 
MOV 
TRAP 4 
MOV RG. (SP) 
MOV =(SP) 
MOV #FAT.21,-(SP) 
MOV #3. p§ 
MOV ‘ 
AD #36,.P 
19$: INC 
CMP R1,414 
BLE 
20$: CMP (SP) +, (SP)+ 
TRAP 6 
ROR 
BHIS 
ois: JMP 
: INC 
CMP Rs 76 
ae 
ine RS M6 
BGT 
JMP 


238: RTS 


; Routine Size: 193 words 


; Maximum stack depth per invocation: 


-SBITL 152 TEST CODE SECTION 


Se Se = 
: 
a 
oe 
a 


~ 


CHANNEL 
CHANNEL , * 
PLOG.SEL 
PLOG.SEL,* 


18 words 


SEQ 0486 


9-Mar-1982 16:23:04 TOPS 
9-Mar-1982 16:21:03 PA:< 


% 
EST MACRO M1113 30-MAR-82 11:18 PAGE 504° 


OGIC T 
ECTION 
T52:: 

0067 7 177172 1$: JSR PC,$T52 

4 TRAP 6 

ROR R 

1 BLO 1 

20 RTS PC 


3; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 


10267 !<BLF/PAGE> 


SEQ 0487 


1026 


ee en ee ———— 
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A EGE: 
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. SEQ 0488 





OOoOoooooo 


oO 
ROMOPORONONOPUNONOND 
VOSan— 


TEST CODE SECTION 


BGNTST: 


++ 


' TEST NUMBER: 
TEST NAME: 


TST 53 


TEST DESCRIPTION: 
TEST SY 





T SYNDRONE DECODE TO DETECT BUT NOT 


TOPS=20 Bliss-16 V2(212) 


S-Mar-1969 16:91:08 PAseNEALESMLOAD BLT e105) 


MULTIPLE CHANNEL ERROR SYNDRONE DECODE TEST 





s 1 
: 1 
° 1 
: 1 
$ 1 
3 1 ' 
$ 1 ! 
: 1 i 
10376 
: 10278 i CORRECT UNCORRECTABLE MULTIPLE CHANNEL 
3 1° 79 ERRORS BY: 
: 10 ee i 1. VIA ECC DIAGNOSTIC MODE FORCE SYNDRONE 
: 10 Be i BITS TO INDICATE MULTIPLE CHANNEL ERRORS 
: 10 85 BY ASSIGNING CRC_A EQUAL TO CRC_6 
09 : 10968 2. DO A MASS BUS READ TRANSFER 
11: 10287 : 3. THEN EXAMIN THE 10 BUF FOR NO BITS 
1 10 88 . COMPLIMENTED AND ECH AND UNC BITS SET 
14: 10290 i IMPLICIT INPUTS: 
15 : 10291 | 0_BUF 
3616 : 10298 A “VECTOR OF 256 WORDS WHERE DATA 
17: 10293 ! FOR MBUS READS AND WRITES TRANSFERS 
518 : 1029 i ; 
519 ; 10 ' 
520 ; 10296 ! 
621 : 10 ; 
56 18 
$6¢4 : 10 !INDEX INTO REMAINDER TABLE 'REM_TBL‘ 
626 : 1 ICLEAR ERROR PRINT THRESHOLD 
36¢ : 10 ‘FIRST LETS CLEAR THE ML11°S GOOD 
$628 IBLOCK BY WRITING ZEROES TO IT 
i i 
633 : 10309 incr poser from 0 to 6 do !TEST SYNDRONE DECODE AT 7 DIFFERENT PLOG VALUES 
: ° n 
635 : 10311 | 
1636 ; 10312 case -PLO6_SEL from 0 to 6 of 'SELECT A PLOG VALUE 
638 : 10314 
oi : 1 15 (0) : 'POINTS TO CRC WORD 0 
- : 1 18 (1) : ‘POINTS TO CRC WORD 1 
045 ; 1031 PLOG = 1; 


ee eee eee + — 





CT Sse wsssetsessstestenmnssnsnseneeeereserer-ceee---........ - — 
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CEMLADO ML=11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 506 
T52 TEST CODE SECTION SEQ 0489 
645 :MLGAD 9-Mar-1982 16:23:04  TOPS-20 Bliss-16 v2(212) 
546 : TEST CODE SECTION ets 18:57 508 PA:<NEALEDML4AD.BL1.4 (105) 
" 8; 1 
549 ; 19 ° [2]: ‘POINTS TO CRC WORD 2 
$50 : 10 é PLOG = 2: 
6 ¢ 10324 (3) : !POINTS TO CRC WORD 3 
O93 ; 19 5 PLOG = 3; 
555 ; 10397 [4] : !POINTS TO CRC WORD 4 
1656 19 PLOG = 4: 
558 ; 10 [5] : !POINTS TO CRC WORD 5 
559 ; 19 1 PLOG = 5; 
661 : 10 [6] : 'POINTS TO ALL 6 WORDS IN CRC GROUP 
562 ; 6 PLOG = 58; 
3663 : ie tes; 
665 : 10 incr CHANNEL from 1 to 35 do 'TEST 35 CHANNELS STARTING AT CHANNEL 1 
: : n 
: 10 ; ‘START OF SCOPE LOOP 
$ 0 CLR_MBUS; 'CLEAR THE DRIVE 
; 10348 incr COUNT from 0 to 255 do ICLEAR FIRST CRC GROUP IN THE 10_BUF 
: 10 10_BUF C.COUNT) = ZEROES: 
: 10345 FORCE_REM (.PLOG, .CHANNEL); ‘FORCE ERR AT THIS WORD AND CHANNEL 
: 10346 CRC_A-= .CRC_B: iCRC_A EQL TO CRC_B CAUSES THE UNC ERROR 
: 10347 GD BLK_XFER 7): iSET-UP A GOOD BLOCK TRANSFER 
; 1 : Ect DIS = ZERO: ICLEAR ECC DISABLE 
; 1 MLCS1 = read: iDO A TRANSFER 
; 0 20 TIME_OUT_LOOP: 'WAIR UNTIL THE TRANSFER IS COMPLETE 
: 10 32 if not ((.ECH_ERR) and (.UNC_ERR)) 'SEE IF THE ERROR WAS DETECTED 
: 10 54 begin : ‘REPORT ERROR IF NOT DETECTED 
: 10355 THRESHOLD; 1COMPARE ERROR PRINT THRESHOLD 
; 10 36 ERRDF ( SYNC, DUMPER) : 
: 1035 PRINTB (FOR_FMT, WRD_77, URD_10, WRD_76, WRD_9): 
: 10 rT: PRINTB (FMT—21, .PLOG, .CHANNELS: 
; : 030 end; | 
: 10 1 incr CNT from 0 to 12 do 'SEE IF ANY ERROR CORRECTION WAS DONE 
S ies if .10 BUF C.CNT) neq ZEROES 'TEST THE I0_BUF FOR ALL ZEROES 
: 19 5 ‘begin ‘ERROR IF ANY BITS GOT FLIPPED 
: 10 C THRESHOLD: \COMPARE ERROR PRINT THRESHOLD 
10 PRINTB  (FI0_FOTC ub 61. URD 74, WRD_75, WRD_12, WAD_67): 
: 10369 PRINTB (FMT-21, .PLOG, .CHANNELS; ~ °° ~  ™@ ° 
10371 — 


a ee ae ee 
EE TTT 
EES LL A RS ee AN LR 


SEQ 0490 
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Ww 


ML-1 


MLADO 
2 TEST C 
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4AD.BLI.4 (105) 


TOPS-20 at isenié v2(212) 


PA: <NEAL 


S9-mar=1982 16:91:08 
‘END OF SCOPE LOOP 


TEST CODE SECTION 
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? | 
C ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE S08 | 
$153 TEST CODE SECTION SEQ 0491 
. r-1 16:23: TOPS 
‘on TEST CODE SECTION 33 por -1965 18:33 03 PA:< 
104226 150277 111212 
: COUNT 10 
i i 13$: ; COUNT, * 1034 
Ma 7 SF 
ft, 
014022 : COUNT 1034 
he 000377 : COUNT,* 
+ : 1034 
+> : 
GC 113 
a3 3 111252 
0¢ 11 J : 1g 
111 : 10 
if 114056 MOV : 10 
26 111122 14$: st : 
34 000100 111122 8178 = #100. AL .REG+60 ; 1035 
4 111244 st -REG#210 
t 111020 15$: P.CNT ; 1035 
3 111014 111014 cmp PNT -LIALT 
66 CMP (SP)+, (SP)+ 
i 168: TRAP a 1035 
. ‘WORD SYNC 
4402 1061 nov SURD. 1035 
Yo 0¢ 1 MOv 86. #URD 
rit 1 MOV MURD 
| 1 MOV MWRD 
figs flere ye 
4 43 MOV, $P ; SP.* 
4 4 3¢ nov : CHANNEL, * 1035 
TP9? 
( MOV ) : PLOG,* 
Yrry 007756 mov 57 (SP) 
\¢ mov, §P RO ; SP,* 
5 062706 000022 - ADD #22.SP . 1036 
446. 01010; 18S: Rov RI RZ ; CNT,® 10 
© 005762 014022 TST 10. BUF (R2) 


SEQ 0492 


509” 
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sML4AD 
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. 2 ed ened 
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SS ESREEEEE 


BEQ 
INC 
BGT 
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: 





™ meu 
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S 

oo 

ao 
x2 gangs 3 £2 22 8h 
Ss connns S s 3 R 5 ~ 
ee S0500 S a oo 
re. 
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ie 
: 
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SEMEN STERN OSES ORIN SNES S 
TERS Peer ences 
SISO CONTSOASSYIANS 


Size: 202 words 
mum stack depth per invocation: 18 words 


Routine 
> Maxi 
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C2 
$153 TEST CODE SECTION SEQ 0493 
sML4AD r-1 TOPS 
: TEST CODE SECTION r=1 18; 3:08 PA:< 
“- .SBTTL 153 TEST CODE SECTION 
004767 177150 1$: JSR PC,$T53 : 1037, | 
1 TRAP 
ROR 
1 BLO 1 
20 RTS PC 


; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 
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¢ TEST | 
ION SEQ 0494 | 
9-Mar-1982 16:23: TOPS-20 Bliss-16 V¥2(212) 
TEST CODE SECTION Sonar 1385 18:57 508 PA:<NEALE>ML4AD.BLI.4 (106) 
10379 ! 
1 BGNTST: 
ie 
10 i TST 54 
10 § SINGLE BIT ERROR SYNDRONE GENERATION & DECODE TEST 
10 i TEST DESCRIPTION: 
1 i TEST SYNDRONE GENERATION, SYNDRONE DECODE 
10389 | AND ERROR CORRECTION FOR SINGLE BIT CHANNEL 
10 30 ERRORS BY: 
10398 i 1. CLEAR THE FIRST CRC GROUP IN THE 
10 93 : 10_BUF AND GOOD BLOCK TO ZEROES 
10398 i 2. VIA DATA DIAGNOSTIC MODE FLIP A BIT 
10396 TO A ONE 
10398 ! 3. THEN DO A MASS BUS READ TRANSFER AND 
10399 EXAMIN THE 10 FOR ZEROES INDICATING 
10400 . THE CORRECTION WAS PERFORMED 
10402 4. REPEAT WITH ALL BITS IN THE CRC GROUP 
10404 ' IMPLICIT INPUTS: 
10405 10_BUF 
10406 ! A “VECTOR OF 256 WORDS WHERE DATA 
10407 FOR MBUS READS AND WRITES TRANSFERS 
10408 1S FOUND. 
10410 : PD_TEMP 
10411 A BIT VECTOR OF 16 BITS WHERE THE READ 
1061¢ PROM DATA IS STORED AND ACCESSED FROM. 
10414 : 
ig 
O41 local : 
10418 ‘DONE FLAG . 
10419 NIB_PAT : bitvector [4], ‘STORAGE FOR SBE DATA GENERATED 
104 NIB’ SEL, 'POINTER WHERE SBE IS TO BE WRITTEN 
1 GD_GRD_CNT: ‘COUNT OF WHERE GOOD "NIB_SEL" ARE FOUND 
194 § CLR_THRESHOLD: ‘CLEAR ERROR PRINT THRESHOLD 
5 iner meen from 0 to 5 do ‘FORCE SINGLE BIT ERRORS IN ONE CRC GROUP 
1 
iner BIT_CMT from 0 to 35 do ‘FORCE SBE'S AT EACH BIT OF A WORD 
n 
1 


re eee 





ee — —. 
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S's Mi-11 LOGIC T 
T53 TEST CODE SECTION SEQ 0495 
FF “19 TOPS-20 Bliss-16 V2(212) 
32 : TEST CODE SECTION $5-par=19 18: 37: 0% PA: <NEALE>ML4AD.BLI.4 (106) 
98 
10431 a, 6B fr 0 255 ‘CLEAR FIRST CRC GROUP OF I0_BUF 
9e¢ 104 Bur EneNTS = = FEROS; 


































VE LOCATION 

















z 

3 

a3 IN THIS NIGBLE 

2399; a has ES IN THIS ARRAY WORD 
5 BE ZEROES PAT AND ZEROES CRC PATTERN 
536 } oe SAVE LOCATION 

$4 THE DATA A DIAG RES'S 
595 Soe Into ARRAYS 

+544: a T oe INTO THE REROR 


DATA A DIAG MODE XFERR 
K TRANSFER 


3: 
++. 


“= BERET es ws 


ike cc ont , 





956 : 194 4 {CLEAR THE DRIVE maNSFER 

t. : 1 00. ‘ vor TE TRANSFER 

959 : 1 IL_THE TRANSFER 1S COMPLETE 

me tas Ws ga 

962 : 10440 iRE QUNT 

63 : 10441 iLOAD T A DIAG REG (BITS 0-38) 

64 : 10448 MLDg = ZEROES: WITH ZEROES PAT AND CRC BIT FOR 

965 ; = : 

966 : 1 NIB_SEL = .BIT_CNT/4; TE THE NIGBLE WHERE THE SBE IS TO GO 

967 ; 10445 DAT-DM_XFER ()7 {SET Up A DATA DIAG MODE TRANSFER 

968 ; 10666 MLCS1 = write; 'DO A WRITE 

969 ; 1044 DELAY (ONE_US); GIVE THE PROM DATA TIME TO GET OUT 

971 : 10449 wee !FIND THE GOOD NIB AT THE TESTED WORD 
5973 : 19481 PD_TEMP = .MLPD; !READ THE PROM DATA FOR THIS ARRAY WORD 
53975 : 19458 if .PD_TEMP C.NIB_SELJ 1S_SET 11S THIS A GOOD WIGBLE 
33977 : 10459 eteetATAcLX = ONE !IF NOT THEN GET THE NEXT ARRAY WORD 
23979 ; 10457 begin ELSE SEE If WE ARE AT THE TESTED WORD 
3980 ; 10458 GD_WRD_CNT = .GD_WRD_CNT + 1; 
33981 10459 E IF WE ARE DONE 

983 ; 1 if .GD_WRD_CNT eql .WRD_CNT then DONE = ONE else DAT_CLK = ONE: 

985 : end; 

96 ) 

68 ; until DONE 1S_SET; 'REPEAT UNTIL WE ARE DONE 
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CZMLADO ML=11 LOGIC T 
TEST CODE SECTION SEQ 0500 
4 :ML4AD r=1982 16:23:04 TOPS | 
34 1 ; TEST CODE SECTION $9-mar-1982 16:31:08 Pace | 
4 


4 ; Routine Size: 6 words 
; 23 : Maximum stack depth per invocation: 0 words 
4241 


| 
| 
z3 10501 !<BLF/PAGE> 


? 
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‘CLEAR ERROR PRINT THRESHOLD 


CLR_ THRESHOLD; 
ED TEMP<ie. 35 = %b°110°; ‘LOAD DATA STRUCTURE WITH ZEROES CRC PATTERN 


= 
Be Fe Ge Be Ge Fe Ge Ge Fe Se Se Ge Be Be Be Se Be Ge Be Be 


3 iner B11_CNT from 0 to 35 do ‘TEST FOR MULTILPLE ERRORS AT 36 CHANNELS 
‘ 220 CLR_MBUS; ‘CLEAR THE DRIVE 
4 095¢ incr CNT from 0 to 255 do ‘CLEAR FIRST CRC GROUP IN THE 10_8UF 
4 055 10_BUF C.CNTJ = ZEROES; 


CZMLADO MiL~11 LOGIC TEST | 
154 TEST CODE SECTION SEQ 0501 | 
4244 :MLGAD 9-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) | 
36 49 : TEST CODE SECTION ets 16:57 .08 PA:<NEALE>ML4AD.BLI.4 (107) 
24247 ; 10502 ! 
4248 : 10808 BGNTST: 
4249 : 10504 
4250 : 10505 !++ 
4 31 : 105 ' TEST NUMBER: TST 55 
4 38 : 105 : TEST NAME: MULTIPLE BIT ERROR SYNDRONE GENERATION AND DECODE TEST 
4255 : 10510 i TEST DESCRIPTION: 
36 : 10511 ! TEST SYNDRONE GENERATION, SYNDRONE DECODE 
24 57 : 10518 i AND ERROR CORRECTION FOR MULTIPLE BIT | 
58 : 10513 CHANNEL ERRORS BY: 
: 10515 1. CLEAR THE FIRST CRC GROUP IN THE 
26 : 10516 10_BUF AND GOOD BLOCK TO ZEROES 
3 : 10518 | 2. VIA DATA DIAG MODE FLIP ALL BITS IN 
o426h : 10519 A CHANNEL TO ONES 
nS Oye ee 
34268 : 10898 THE CORRECTION WAS PERFORMED 
24270 : 10525 ! 4. REPEAT FOR ALL CHANNELS IN THE CRC GROUP 
24271 : 10526 ! 
24272 : 10527 ' IMPLICIT INPUTS: 
26273 : 10528 : PD_TEMP 
427% : 105¢9 i A BIT VECTOR OF 16 BITS WHERE THE READ 
g4275 : 10530 PROM DATA IS STORED OAND ACCESSED FROM. 
4277 : 10532 : 10_BUF 
4278 : 10533 A “VECTOR OF 256 WORDS WHERE DATA 
4279 : 10534 ! FOR MBUS READS AND WRITES TRANSFERS 
4280 : 10535 ! IS FOUND. | 
2 81 10536 : 
10537 ! 
242 10538 i-- 
b 10539 
4285 10540 Local 
4 10541 NIB_PAT : bitvector [4], ‘STORAGE FOR SBE TO BE GENERATED 
428 1054¢ NIB" SEL, 3 IPOINTER TO WHERE ERROR IS TO BE WRITTEN 
10543 GD_ORD_CNT: ‘COUNT OF WHERE GOOD *NIB_SEL' ARE FOUND 
1 
1 
1 
a 
1 
1 
1 
1 
: 
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TEST CODE SECTION 


K_XFER (); 
= write: 
OoP 


mecSt = write; 
DELAY (ONE ites: 


do 


unti 


Ect 
mi. CS 





TIME 


in 
PO TEMP = .MLPD; 


if .PD_TEMP C.NIB_SELJ IS_SET 


DAT_CLK = ONE 
else 


gl 
GD_WRD 
T = 
pad 


end 
l .GD_WRD_CNT eql 6; 


Bin. 


= read 
tour’ LOOP: 


incr WRD_CNT from 0 to 13 do 
if .10_BUF C.WRD_CNT] neq ZEROES 
then 





in 
OEP  uRESHOLD: 
ERRDF Chat SYNC, 
PRINTB (THR_FMT, 
PRINTE (FMT-22, .WRD 


ENDSUB; 
end 


PHR_1 





WRD- CNT, 


R); 


ae Ns 


wRD 76 


TLC 


9-Mar=19 
s3-mer=19 


‘ALSO CLEAR THTE FIRST 





85 16:91:08 PATeNEALESML AD’ 
CRC GROUP 


!IN THE ML11°S GOOD BLOCK 







ey 





{CALCULAT 


GAD THE ReGls 


TTERN 
E 10 BE IN ERROR 
Dea tte 
with THE ERROR 
TRANSFE 





" 
DATA D als 





iGlive Whe PROM DATA. TIME TO COME OUT 


‘LOAD THIS CHANNEL WITH MULTIPLE ERRORS 


!READ THIS ARRAY WORDS PROM_DATA 
‘SEE IF THIS A GOOD NIBBLE 

!CLOCK OUT ANOTHER ARRAY WORD IF BAD 
‘ELSE CLOCK IN THE ERROR INTO A GOOD NIBSLE 


‘REPEAT UNTIL 6 WORDS ARE WRITTEN 
‘START OF SCOPE LOOP 


Par as & 
aed 





UP A 





OUT THE DATA DISG MODE TRANSFER 
OCK TRANSFER 





TRANSFER TO COMPLETE 


‘SEE IF THE CORRECTIONS WHERE DONE 
‘TEST THE I10_BUF FOR ALL ZEROES 


‘REPORT THE ERROR IF ANY LOCATIONS ARE NOT ZEROES 
'COMPARE ERROR PRINT THRESHOLD 


WRD_9); 


NT);~ 


‘END OF SCOPE LOOP 


rr errr eerste steamers 
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SEQ 0503 
| 
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§ 
c2 ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 P 1 
$155 TEST CODE SECTION _ 52 SEQ 0504 
441 sMLSAD :23: 
cat§ : TEST CODE SECTION a a 18:53:08 Pare 
6415 4271 BIC #177770, (SP) 
4616 27 MOV #1,-(SP5 
641 ; MOV (SP) ,=(SP) 
4618 me JSR BL 
64 110414 MOV R4. (SP) : NIB.SEL.* 1056 
abet 016646 mov 16(SP) -=<sP> : NIB.PAT.* 
4437 1167; 10 MOV -—«1. TEMP. @ML.REG*170 
44 V1 10 MOV D2. TEMP,al"..REG+200 
44 16 4 MOV E2. TEMP, aML .REG+160 
44 ¢ JSR PC DAT.DM.XFER ; 1056 
446 i 107152 mov wet a ; , ase 1056 
s ! ‘ mov a. : *, 1056 
. 1 nov LSDLY.R2 : *,SSTMP1 
0 5$: CLR 23(sP) ; SSTMP 
eee Re : SSTMP1 
6$: = 44 : SSTMP2 
7$: MOV R4,R2 : NIB.SEL,* 1057 
ASR 
ASR m3 
| ADD UPD. TERP 
zy 107036 8$: MOV Os AL : 1057 
MOV R2 ) s 1057 
. MOV R4 ) : NIB.SEL.* 
BIC a 
MOV #1,-(SP5 
CROP BLSG 
+> ' Q e 1057 
: INC e e ry 
i 107156 98: 8158 : agente 1988 
13 106 ow ; GD.WRD.CNT,* 1088 
$ 3 107060 _ Biss 4 1058 
7? } Y MOV , 


ahs 
a8 
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comb 

: 
oom 
See 
6a" 
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} 
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333333 


; WRD.CNT 1059 


5 
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| 
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TOPS 
PA:< 
1059 
1059 
1059 
1060 
1060 
1059 
1059 
1060 
054 
054 
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SE@ 0505 


“e “2 *“ a] 
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s SS wow we 
e od ee a ee ee 
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S. os fog ony 
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24 words 





oLIMIT 





TEST CODE SECTION 


P.CNT 


P.CNT 
-SBTTL 155 TEST CODE SECTION 


s5eSsssssetecnaatexestscaxesees 


tine Size: 214 words 
Maximum stack depth per invocation: 


sPAL4AD 


12$ 

13$: 
148: 
15$: 
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CTRL ADO ML-11 LOGIC T 
T55 TEST CODE SECTION SEQ 0506 
24524 sML4AD ad 16:23:04 TOPS | 
26 5 3 TEST CODE SECTION r-1 16:21:03 PA:< | 
223) lone] 767 177120 13:°°  JsR PC. STSS | 1060 | 
1 1 ‘ TRAP ‘ , 
4533 1 ROR | 
1 1 BLO 1 
$2 5 1 600207 RTS PC 
45 ; Routine Size: 6 words 
$e7 ; Maximum stack depth per invocation: 0 words 
544 
4545 ; 10608 !<BLF/PAGE> 


OL LL LLL nnn ees ensssssesessstasnssessstesensesensesssstnnessiessnnsseneseneneneenereerees--........ — eee . 
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CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE E24 ! 
T55 TEST CODE SECTION SEQ 0507 | 
4547 :ML4AD 9-Mar-1982 16:23:04  TOPS-20 BLiss-16 v2(212) 
30548 : TEST CODE SECTION Somer} 85 18:57:04 PA:<NEALE>ML4AD.BLI.4 (108) | 
¢ ay: : 10 BGNTST 
552 : 10611 ; 
: 1 1g +4 
34334 : 13 TEST NUMBER: TST 56 
43 : 15 TEST NAME: ECC ERROR REGISTER TEST 
338 : 1 878 i TEST DESCRIPTION: 
: 10618 | T CC ERROR REGISTER FOR 
360 : 10619 } EARING AND LATCHING OF ECC ERROR 
4561 : 10620 } INFORMATION ON DETTECTION 
362 ; 7 OF ECC ERRORS BY: 
564 : 10623 1. THIS TEST IS TABL VEN. DATA (DT_1) 
565 : 10624 | CONTAINS ERROR FORCING DATA AND KPELTED 
34566 106 noeinceerianeeyalalyaeg ED ERROR 
24568 : 10627 2. TEST THEREFOR INDEXES INTO DT_1 TO FORCE 
St2%5 : : 4: py Ecc 
2802 10¢ 3. Rapesco sh oie ads 
24573 : 10632 } 6. CONTENTS 
24574 : 10633 | 1 tolbanee Near t T INST THE P RESULTING 
279 : MLEE REGISTER 
577 : 1 i 5. A_MASS BUS CLEAR IS DONE AN MLEE IS CHECKED FOR 
a79 ae — 
580 : i i 6. THE ECH BIT IS ALSO EXAMINED FOR CORRECT 
581 : LATCHING INF 10N 
one : 1 i 
° 1 i 
og : 1 ine 
= 
: 1 ‘TEMP STORAGE FOR E1 DATA WORD 
289 : 1 t VARIABLE ENDING CONDITION FOR LATCH_LOOP 
350 : : ‘ERROR FLAG 
592 : 1 CLR : ‘CLEAR THE DRIVE 
293 : FINISH = 4; IMAKE LATCH_LOOP DO 5 LOOPS AT FIRST 
4595 : 1 incr CLR_LOOP from 0 to 1 do 'THE FIRST PASS TESTS MLEE FOR LATCHING 
4596 : 1 THE” SECOND PA PASS Tests MLEE FOR CLEARING 
re : : begin 
4599 : 1 iner LATCH_LOOP from 0 to .FINISH do 'TEST MLEE FOR LATCHING BY USING DT_1 DATA 
e 4} 
1: 1 : : ‘START OF SCOPE LOOP 
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CZMLADO ML~11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 525 | 
T55 TEST CODE SECTION SEQ 0508 
sML4AD 9-Mar-1 16:23: TOPS-20 Bliss-16 V2(212) 
; TEST CODE SECTION Sonor} 95 18:54:98 PA:<NEALE>ML4AD.BLI.4 (108) 
10661 ERR_FLG = ZERO; {CLEAR THE enn FLAG 
i MLER = ZEROES; ICL RROR REGISTER 
ECC_DM = ONE; ‘ENABLE ECC D 
34610 5 THE FOLLOWING ASSIGNMENT: 
g461¢ ; MLE1 = .TMP_E? 
4614 ' 1S EQUIVALENT TO THE FOLLOWING 
4615 ! TWO ASSINGMENTS: 
17 ? i PAR_CRC_WRD = 1 C.LATCH_L ‘LOAD PAR_CRC_WRD edt REM_TBL 
18 t  CRCTA =" .DT_ 1¢ Or RTCH _ LOOP, ~ “iOrss: F ‘LOAD CRCTA WITH REM_TBL 
i THIS IS NEC Y DUE TO THE FACT THAT 
1 | THEE anes 
THE BLISS C 
_. 


we rtiee fue Bees R A aad BYTE INST 
























56654 TMP_E1 = ZEROES: !CLEAR OUT THE TEMP WORD 
24607 TMMEI<O. 6> = 01.1 £-LATCH LOOP. a0-33: 'LOAD CRC_A WITH REM TBL 
4628 TMP” E1 = DT~1 C.LATCH-LOOP, : iLOAD PAR-CRC_WRD WITH REM_TBL 
sa6e5 MLET = .TMP_E1; ILOAD THE E1 REGISTER WITA DATA 
6631 CRC_B = .DT_1 [.LATCH.LOOP, 80.5): T CRC_B FROM DT_1 
463, GD Bik XP Q; , ist UPR GOOD BLOCK TRANSFER 
463: Ect DIS = : ibisaBle Ce D DIABLE 
46 MLCS1 = ERROR AND LACTH MLEE 
54635 TIME _OUT_L e 
465: if .CRC_ERR neq .DT_1 C.LATCH_LOOP, CRC_DATA] then ERR_FLG = ONE; ITEST CRC_ERR 
4639 if .SGL_ERR neq .DT_1 [C.LATCH_LOOP, SGL_DATA] then ERR_FLG = ONE; 'TEST SGL_ERR 

541 if .UNC_ERR neq .DT_1 C.LATCH_LOOP, UNC_DATA] then ERR_FLG = ONE: ‘TEST UNC 

if .BIT_IN_ERR neq .DT_1 C.LATCH_LOOP, £0_5] then ERR_FLG = ONE; ‘TEST BIT IN ERROR 
5 if .CHAN_IN_ERR neq .DT_1 C.LATCH_LOOP, C0_5] then ERR_FLG = ONE: ‘TEST CHANNEL IN ERROR 


i ECH. ERR neq .DT_1 C.LATCH_LOOP, ECH_DATA] TEST iF ECH GOT SET 


begin ot itn se !REPORT ERROR IF NOT SET 
PRINTB (FOR_FAT, ind Wie WRD_10, WRD_69, WRD_14); 





if -EAR LG IS_SET !TEST IF THE ERROR FLAG GOT SET 
‘REPORT ERROR IF SET 





cael eee cel el cee cel cee cee cell cel eld cee el cel cold cen ld cel cee ceed ce cc ceed ced ed ceed ee ec ed el cee end ce ce ee cee eed edd cee ed ee ed een eet eed ees ee eee 


EERERRERERERRER: 
Bere! 


in 
PRRor (124, SYNC, DUMPER); 


OO LL ae eae ee aes esentessssssnssnstesstssessnesssstnesmemmssmsmmsmesmmmmmmmenmnnes _—— nee -t— ee 
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T55 TEST CODE SECTION SEQ 0509 
4659 :ML4AD 9-Mar-1982 16:23:04 TOPS-20 Bliss-16 V¥2(212) 
3666 : TEST CODE SECTION Somern198S TeiSaos PST 20 Blissate V2 (212) 
: 10713 PRINTB (THR_ FAT. REG_ 4, WRD_52 
: 10714 PRINTB (FMT-1, .DT pLaTcH ~?66e"E E Pala, sR) 
; 10715 PRINTB (FMT~19, .DT_1 L.LATCA. tooP, B > it LATCH_LOOP, AO_SJ, .DT_1 C.LATCH_LOOP, P0_5)) 
4665 : : tal end; 
: 10718 ENDSUB: 'END OF SCOPE LOOP 
s : 71 end; 
: 721 CLR_MBUS; ICLEAR THE REGISTER 
: 107 $ if .MLEE neq ZERO ISEE IF THE REGISTER GOT CLEARED 
: 19 5 begin 'REPORT ERROR IF NOT CLEARED 
5 1 ERRDF (125, SYNC, R); 
; 10 PRINTB (FOR_FMT, REG_14, WRD_52, FNC_7, WRD_14); 
: by end; 
: 9 ECC_DM = ONE; ‘ENABLE ECC DISABLE 
° 107 1 FINTSH = ZERO: IMAKE LATCH_LOOP LOOP ONCE TO CLEAR MLEE AGAIN 
; 1 ; 
: 19 ENDTST; 





-SBTTL Ho TEST CODE SECTION 
075760 $756: = ee $ 1060 
106600 B1SB ; 1064 
1 MOY 
1 BIC 
BICB 
61S8 
MOV 3; *, FINISH 1065 
CLR : CLR.LOOP 1065 
1$: aS 3: LATCH.LOOP 1065 
23: mov ; LATCH.LOOP,* 1068 
i ) 108 
aoe ; 1068 
3$: TRAP : 1065 
CLR : ERR.FLG 1066 
106520 CLR 5 1066 





owe ee ee eee 


Ne LE 


A LL TT 








W888 


toy toy 
awa 


oi 
oe 
WN 
S 
== 





2 §: $338 3 
- S< 
WY §-§Q eee - — 
So 
rr 
” ll 
ze 
Me 
oo 
eed 
se 
8 
ee 
-m- er « 
huts ws *® 
Soe get 
ha 
a 
2 ee par 
.* 8 % 
ee 22 2 & 
ee *e %e @*e *e ee %e *e *e 
é 
~ -_ 
ON (=) 
aN ives 
8 Ww 
- #8 
wo ~Wae 
-_ Fr « 
4 4 wn 
e a ~Tetnee dl aoa 
= - s2v~2ecwr z2ze2acvwoekeke 
™N 
ri @ 
het ioe eee 
Ove Oow 2 Daam 
- # 
Cod tere 
, omed 
= ~w 
2 Ps % 
vw pA 4 
3 3 3 
= - 
3 & 
7 - 
wy 
has 
— 
tam) 
or 
ed ad 
kas 
w“ 
a ] 





wes > 








068 
068 
068 
069 
1069 
1069 
1069 
1070 


oO oO Lo) 
a | and ad pe 
ha. he 4a Bn 
ze o e * 
ao r= & ra 
Ww (ey) was - as 
© 4 * s 
oy “ a ca 
e*e te © cece ee %e ee %e ce%e 

= 

a 

aww 

a~ 

ws 

~~ f 

é~ 


ye 
06 


* 6 so 
AX aa’ 4 
Seut Rees =~ 
@ 23> wo oo Iowa WI>wen o& 20 | =) 
OEBSBSESSBSBSRESBSSSRSSososesaS: 
So HEOICSHSTL OC OCHS LoL oosereoflooseea 








my 
Qo~wqw 


PY 
~ 


4$ 
«S$: 
6$ 


i 
BSE Si St St. 
a= 





ee 





bh 4 bp © 
eee 
Oro OOo oS So = 


RSSSLERAAMA SS SRARGORN ROSS 


Ae to add - wy o- wv ace = 
SERRE SRNR SAR RERRERERRR RSE RENEE RRR KR RRR See e eee ee 





NMI MuRUrUrUrucruedeD 


MACRO M1113 SO-MAR-82 11:18 PAGE bag” 





SEQ 0511 


$530 


TOPS 
PA:< 


21:03 


-) 


Cn od 


r=1988 


TEST CODE SECTION 





Seats 





1070 
1070 
1070 
1070 
1070 
1071 
1071 
1071 
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ERR.FLG,* 


oO 
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‘ 
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R 
eee 


: SP,* 
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SEQ 0512 


39-Mar-1982 16:21:03 


“ & 


TOPS | 
PA:< 


TEST CODE SECTION 


sML4AD 


; SP,* 


1071 
1071 


55555523 ecesBbesSe 





177700 


15$: 





a 


ed ed ad dd od ld 
SOSOSSSOSSSS 


nee 


: LATCH.LOOP 


$ 
(SP)+, (SP)+ 
Re 


™~ 
© 
oa 


: LATCH.LOOP,FINISH 


ae 





O4 
yee 


105642 17$: 
105624 


SIReSRs 
S eer Oee 


SRESRAN SS 


— oe 5 = | om | ce | ee | ee 7 ee | ee | cee | ce | ce 








Se 
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Si gis 


105614 18$: 
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2 25333 9 
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I 
$156 TEST CODE SECTION SEQ 0513 
3 3ML4AD a 16:23:04 TOPS 
ts : TEST CODE SECTION 9-Mar-1982 16:21:03 PA:< 
4 107734 706 000006 19$: ADD #6,SP ; 1060 © 
107740 niet RTS PC | 
; Routine Size: 294 w | 
: Maximum stack depth” note tewecattons 23 words | 
"4 
4901 -SBTTL 156 TEST CODE SECTION 
4 10774 T56:: 
4 10774 767 176660 1$: JSR PC,$7T56 ; 1073 
4 1077 104466 TRAP 
4 if 1A R 
4 107752 1 BLO { 
v4} 107754 000207 RTS PC 
491 : Routine Size: words 
Lone : Maximum stack et per invocation: 0 words 
4919 


4920 ;: 10735 !<BLF/PAGE> 





rT ee 
——~— ——— ee —_ = 
-_ —~-— - . — 





























¢ LADO ML=11 Logic oles! MACRO M1113 30-MAR-82 11:18 PAGE B48 
SEQ 0514 
9-Mar-1982 16:23: ~ - 
TEST CODE SECTION lS 18:57:03 the ALES LAD Ok 2 7109) 
: 1 ! 
: 187 BGNTST; 
: 10739 !+4+ 
49 740 i TEST NUMBER: TST 57 
ose, 2 7 TEST NAME: ECC ERROR LOCATION REGISTER TEST 
215% : 1006S | eet OES CRE TION: ERROR LOCATION R 
; i EGISTER FOR CLOCKING, BIT 
249 3 ; 246 CLEARING AND LATCHING OF DSA ADDRESSES ON DETECTION OF ECC ERROR BY 
sto3s : 1O548 ; * jest ei MASS BUS CLEAR FORCING REGISTER BITS TO Z 
24939 : 10750 : B. FORCE AN ECC ERROR AT THE LAST Rea RANS 
- : e K 
24940 ; 10751 ; C. CHECK MLEL FOR LAST BLOCK ADDRESS ——s e 
264942 : 10753 ! 2. TEST FOR BIT UNIQUENESS BY 
54943 : 10784 i "A. WITH FORCED ECC ERRORS D RANS 
264944 : 10755 " ADDRESSES CHECK MEL FORT TONED Ben ADDRE Resse 
2494s ; 10756 =. B. DO CLEAR AND REPEAT oe _— 
24947 : 10758 ! 3. TEST FOR LATCHING AND CLEARING BY: 
26549 : 19980 ” vast BLOCK tLATCNE LE . MAST BLock ADDRESS To START 
; AST BLGCk T 
34950 ; 10761 B. DO A READ TRANSFER AT DSA a a oe 
i: IO ri rs 
3 ‘ C. WITH FORCED UNCORRECTABLE ERRORS DO A READ 
5938 ; 0769 ZERO CHECK MLEL FOR LATCHED DSA ZERO : a om 
; 10767 ! D. UITH FOR RACED INGLE BIT ERRORS DO A READ TRANS 
36386 ; 10768 BLOCK AND CHECK MLEL FOR NOT LATCHING oo 
; 10770 ! E. WITH A FORCED UNCORRECTABLE € DO A READ TRANSF 
ti |g, BE RRL ag pees mes Fon wat Cab” 
34962 10773 i é. WITH A SORTED ciALe BIT ERROR DO A READ TRANSFER AT THE 
24964 : 10775 H. DO A MASS BUS CLEAR AGAIN AND CHECK MLEL FOR ZEROES 
336% ; 10 oe : IMPLICIT INPUTS: 
4968 : 10779 | A “VECTOR OF 256 WORDS WHERE DATA 
34969 ; 10780 FOR MBUS READS AND WRITES TRANSFERS 
4971 : 10782 i ee 
497¢ : 10783 | 
4973 : 10784 i-- 
“on | 10786 local 
e oca 
24976 : 10089 GL, 'SINGLE BIT ERROR PARRAMETER 


M 
EST MACRO M1113 3O0-MAR~-82 11:18 PAGE o32° 


CZMLADO ML-11 LOGIC T 
ON SEQ 0515 


IC 
T36 TEST CODE SECTI 














begin PAT = ZEROES; 
—* = .DSA_PAT; 






[1] (MOSTLY ONES PATTERN 
begin PAT = .LST BLK; 
MLDA = .DSA PAT: 
end; | 
Cotherwise) : 'SHIFT PATTERN 


DSA PAT = . SHF_DATA; 
MLDA = . SHF F_DATA; 
SHF_DATA = <SHF *BATA*~ONE: 


26978 :ML4AD B-narB88 18 16: 3: 3:04 TOPS-20 Bliss=16 V2(212) 
4979 TEST CODE SECTION 9-Mar-19 PA:<NEALE>ML4AD.BLI.4 (109) 
24981 ; 107 UNC ECTABLE ERR PARAMETER 
34983 : 19789 SAVE, iTERPORY SAVE Loe 
24983 : 10 SHF_DATA, i SIF TING DATAL PATTERN SAVE LOCATION 
24984 : 10791 DSA-PAT; ‘EXPECTED DSA PATTERN LATCHED IN MLEL 
24986 : 10798 CLR_ THRESHOLD; 'CLEAR ERROR PRINT THRESHOLD 
24987 : 10794 BGNSUB; ISTART OF SCOPE LOOP 
24988 : 10795 CLR_MBUS; {CLEAR THE MLEL REGISTER 
24989 : 10796 _ERR (SGL = 1, UNC = 0); A SBE 
990 : 1079 LST LATCH THE LAST BLK ADRS INTO THE MLEL 
24991 : 10798 MLWC = = 255; 
24992 : 10799 MLBA = I0 BUF; 
24993 : 10800 MLCS1 = read: 1DO A READ AND LATCH THE MLEL 
24994 : 10801 TIME_OUT_LOOP; 
24996 : 19808 if .MLEL eql ZEROES ISEE IF THE MLEL GOT CLOCKED 
24997 : 10804 then 
24998 : 10805 begin IREPORT AN ERROR IF NOT CLOCKED 
24999 : 10806 ERRDF (126, SYNC, R): 
25000 : 10807 PRINTB | (Ti _FMT, REG_15, WRD_S2, PHR_11); 
25001 : 10808 
2 : 10809 qT 
25003 : 10810 
25004 : 10811 ENDSUB; ‘END OF SCOPE LOOP 
23005 ‘ 10812 SHF_DATA = .LST_ARR: ‘LOAD THE SHIFT DATA 
25007 : Hs 43 iner non ol from 0 to 16 do ‘FIRST TEST FOR 1°S AND 0°S THEN SHIFT DATA 
; 10816 ; ‘START OF SCOPE Loop 
: 10817 CLR_MBUS; ICLEAR THE DRIVE 
: 10818 FORECC_ERR (SGL = 1, UNC = 0); iFORCE A SBE 
; eotesnene LOOP of iat 'SELECT THE TEST PATTERN 
2 s he 
: (0) : 'ZEROES PATTERN 


een) eed eed wend and eon’ mad cond ened cach ered woud each wud ord ced) cnn wend carn) ened ooh 


oe oa 


_ Wie OOO NOULWY oO 


ee, Rees 


C7rLADO ML-11 L 
T56 TEST CODE S$ 
5034 ;ML4AD 


; 





3 
9 


5035 
3 


end ced wed amet odd cameds send ood anak ends ok amd emad ead md «wal ed) aced) cred 


C 
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T 
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zt 


SESSEEE 
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SS550D05555995995 
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Oooo 


Seeeeernees 
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= — 
. : . . 
° 


EST 
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TEST CODE SECTION 


end; 
tes; 


MLWC = not 255; 
= I0_BUF; 
MLCS1 = read; 
TIME_OUT LOOP; 
SAVE'= .ALEL; 


if .SAVE neq .DSA_PAT 
then 


: 





begin 
CMP_THR D; 
see es A ei 






ERR (S6L = 1, UNC = 0); 


MLBA = 10_BUF; 


BLK: 
oT LOOP: 


incr om ol from 0 to 4 do 


MLER = ZEROES: 
case .LOOP from 0 to 4 of 
set 






in 
SGL = 1; 
UNC = 0: 
DSA_PAT = .LST_BLK; 
wpa = ZEROES; 





ii be in 
Sél = 0; 
UNC = 1; 
DSA_PAT = ZEROES; 
mLDR = ZEROES; 


S9-mar-1965 16:91:08 


!SET UP THE TRANSFER 

!DO THE TRANSFER AND LATCH MLEL 

‘READ AND SAVE THE MLEL REGISTER 
‘SEE IF SAVE IS WHAT WE EXPECTED 


‘REPORT AN ERROR IF NOT THE SAME 
‘COMPARE ERROR PRINT THRESHOLD 


I 4); 
PRINTS (FMT_2, .DSA_PAT, .SAVE, (.DSA_PAT xor .SAVE)); 


‘END OF SCOPE LOOP 





iC 
‘FORCE 
‘SET UP A LAST BLOCK TRANSFER 
:TO LATCH THE MLEL WITH T 


!NOW TEST FOR CORRECT LATCHING 


: START OF SCOPE LOOP 
:CLEAR THE ERROR REGISTER 


'SELECT TEST DATA 


‘FORCE A SBE AND CHECK FOR THE LST BLK ADRS 


‘FORCE A UNC ERROR AND CHECK FOR ADRS ZERO 





TOPS-20 bliss-16 V2(212) 
PA:<NEALE>ML4AD.BLI.4 (109) 


SEQ 0516 


z 






5S 


ML-11 LOGIC TEST 
TEST CODE SECTION 
25090 ;MLSAD 
3 1 Je 3 
32034 1088 
send 1085 
- I 70 1 JC ; 
bene 1089¢ 
F444 aC 
5; " ROC 
. + 
7344 1901 
Tay +4 
5 1¢ a4 
: ' 1p 4! 
' 1906 
: 106 9 
i +44 
*C Or 


ek ce ed eh ee ed ed ed ee ed ed ee aed ed ee ed eed eed ee Se eed ee oe ed eed eed eed eed nd eed ed 
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eet 
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. 
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—s 
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~ a — wast Seas = = a = _n - a we a 


*¥ 


x 


TEST CODE SECTION 


Cad 
o 


FOR_ECC_ERR 
MLW = no 
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n 

= 

= 
SA PA x 
end; 


i, 


cS 





3 o 
S. 









SGL, .UNC); 


t. 255; 








$9-nar-1989 16 


134203 






PA:<NEALE>ML4AD.BLI.4 


‘FORCE SBE AND CHECK FOR ADRS ZERO 


‘FORCE UNC ERROR AND CHECK FOR ADRS ZERO 


'FORCE SBE AND CHECK FOR ADRS ZERO 


*FORCE SELECTED FORCED ERROR INTO ML11 
TRANSFER 


'SET UP A 


‘READ THE ERROR OUT AND LATCH MLEL 


‘TEST THE REG FOR LATCH DATA IF LOOP NEQ 4 


‘ELSE TEST THE REG FOR CLEAR 


‘SEE IF THE REG LATCHED OK 


*REPORT ERROR IF NOT LATCHED 
'COMPARE ERROR PRINT THRESHOLD 


Pap 71. WRD_10); 


‘END OF SCOPE LOOP 
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4 (109) 


SEQ 0517 


ee re ee ee, ewes ee 
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TEST CODE SECTION 
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Saneao 
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oe eS eS yee gee gee pe ee Pe See PES 


1 
1094 
1093 
| 
conker 


5 


UNC 

DSA.PAT 
GL, 

UNC, 

; LOOP, 
* SAVE 
SA 

€ SP,* 

3; SAVE,* 


; sc: fw 


72 Si 





TEST CODE SECTION 


= Ba 2 pySaShagc 2885 4 $ 
SSaeacaelcePe Pee bs dakaaak sea saeSe = SPREE En EEE E Ess 
i) se 


R82 ff 2 S 
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oeece 2 Ee 8 Be 


REA SRAAR SERRE RAARR ONS 


0[ooo Sera ee 
woe ee Oe et en ce IPS 
C eeaicaned 


104522 218: 
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18S seer 
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000022 

sii 

000020 


103054 104452 


DR. Wy af of 3 ee 


44 
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CZ ML-11 LOGIC TEST 
$157 TEST CODE SECTION 


=3 
ee ce ceed ce ceed eel end ee ceed ceed een 
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Ww 
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: 10947 !<BLF/PAGE> 
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: TEST CODE SECTION 
283: CMP ioP)* (SP )¢ 
TRAP 6 
ROR 
BLO 14$ 
29S: INC R 
CMP R2 #4 
BGT 
JMP 14$ 
30$: CMP (SP)+,(SP)+ 
31$: i (SP)+ 


3; Routine Size: 343 


words 
: Maximum stack depth per invocation: 


-SBTTL 157 TEST CODE SECTION 


T57:: i 
1$: JSR PC,$157 
TRAP 66 
ROR RO 
BLO i 
RTS 


3 Routine Size: 


words 
: Maximum stack nat per invocation: 


; LOOP 
3; LOOP,* 


net shee -— < 


r=1 
r-1 


SEQ 0522 


16:43:08 | 
16:21:03 PA:< | 


1094 


i ee 


-_ <a ——— 


Sse 9 ML~11 
157 TEST C 

1 
1 


54 


RLALALALALALALALALALRLL ee 





sPMLSAD 


TEST CODE SECTION 





949 BGNTST: 


ed weed ed 





beg 

: TEST NUMBER: TST 58 
: TEST NAME: 

TEST DESCRIPTION: 
/ 

‘ 








198 
198: 
y 
t 
5 BA 


wma 
* 
~ 





© 







enep 
a 


° 
‘ 


++ '~ 


rrr hf 


= 
a 


BSSSSSSs5: 


aSSSS3e 
: LAIN 


5 


al nh cele crels ce nel el elt cals cc eld el cen eel ce cel cel el ae eel eld ae ed ee eh ed cee ced ee ei etd ee ei cee ch cee eee ec ee aed end ec ee edd ee ed ec ec ee 





‘ TEST MACRO M1115 30-MAR-82 11:18 


ECC HARD ERROR BIT TEST 


A ECC_DM AND ECC DIS TEST THE 


1 16:23:04 
rr1983 16:21:03 


‘CLEAR THE DRIVE 
‘SET ECC DIAG MODE 
:FORCE UNCORRECTABLE ERRORS INTO THE GOOD BLOCK 


58 | ECH BIT-FOR SETTING AND NOT SETTING BY: 

960 } 1. WIA ECC_DM AND A WRITE TRANSFER FORCE 

61 | ECC ERRORS INTO THE ML11°S GOOD BLOCK 

965 | 2. WITH ECC_DM = 0 AND ECC_DIS = 0 

964 | DO A READ TRANSFER AND CHECK ECH SET 

66 | 3. WITH ECC_DM = 0 AND ECC_DIS = 1 

967 | DO A READ TRANSFER AND CHECK ECH NOT SET 
1969 | IMPLICIT INPUTS: 

0970 | BUF 

977 | CTOR OF 256 WORDS WHERE DATA 

972 MBUS READS AND WRITES TRANSFERS 

97% | 

0975 | 

pane faa 

pare local 

097 EXPECTED: ‘EXPECTED ECH_ERR VALUE 


:TEST ECH BIT FOR SETTING / NOT SETTING 
: START OF SCOPE LOOP 

‘CLEAR THE DRIVE 

‘SET UP A GOOD BLOCK TRANSFER 


‘SELECT THE TEST DATA 





TOPS-20 Biiss-16 V2(212) 
PA:<NEALE>ML4AD.BLI.4 (110) 


SEQ 0525 


EE EE 
oe eee —— a ee 





¥ 
EST MACRO M1115 30-MAR-82 11:18 PAGE ba 
















ey 





CZMLADO ML=11 LOGIC 
157 TEST CODE SECTION SEQ 0524 
r=1 16:23: TOPS-20 Bliss-16 V2(212) 
TEST CODE SECTION ra¥98S 16257208 PA:<NEALE>ML4AD.BL1.4 (110) 
: 11 begin ‘EXPECT ECH BIT TO SET 
; 17 ECE DIS = 0; 
: 11 EXPECTED = 1; 
$ 11 end 
$ 11 else 
; 11 begin ‘EXPECT ECH BIT NOT TO SET 
; 11 ECC DIS = 1; 
; 11 EXPECTED = 0; 
: i end; 
5487 ; 11 MLCS1 = read; IREAD THE ERROR OUT 
5488 ; 1 TIME_OUT_LOOP; 
55490 : 1 if .ECHERR neq .EXPECTED 11S ECH BIT WHAT WE EXPECTED 
5 9% 11 begin 'ERROR IF NOT 
5493 ; 11 E (129, SYNC. DUMPER) ; 
549% : 11 PRINTB (FOR_FMT, WRD_67, WRD_10, WRD_69, WRD_14); 
5495 ; 11 PRINT (FMT_1, .EXPECTED, .ETH_ERR): 
° 38 3 1 end; 
3 98 11 !END OF SCOPE LOOP 
+ ; 11 
: 11 
55501 : Tf 
$ ,SBTTL $158 TEST CODE SECTION 
111 JSR R1 VE ; 
5511 117 B1SB : 
i 1¢ 111 MOV 
55135 111 
25514 111 | 
5515 117 aml. 
32516 111 a ; : 1 
5517 111 a +150 : 1 
? 117 & ” 1 
25519 111 a ; 1 
- 117 : 1 
Ht 1 ) 
385% 111 
* 117 
111 ; LOOP 1 
111 TRAP 2 : 1 
111 BISB #40,aML.REG+40 ; 1 





S33 BE832323 





$f SBsSss 


eee ee ee Fs ee Ge ee 


TOPS | 
PA:< 
1101 
1101 
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1099 
1094 


SEG 0525 


39-Mar-1962 16:91:03 
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03716 4$: 


104046 3$: 





Rieck SER SMe t tetetete NARA RARARAS SSeS NS TOTS 
ba Ait in itn it ie diem ww rw MINIAINIATIALAIAYY wwe MAW oo 


MRNA DERE R ERA PATNA R ARR TR ES FIANNA TTT 
UAT AT aT aT Ar AT AT ar ar Ar AP AP Arar arar at at Oe ry ae Aah Aa ay ah gh 4 ay ge gh aay 








—_—— 
Sr thet ensenssesesssshstesehestetenemenmnen eS -- - - 


2 
C2 ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE $3 
$158 TEST CODE SECTION SEQ 0526 | 
3ML4AD -1982 16:23:04 TOPS 
3 ; TEST CODE SECTION a4 983 16:21:03 PA:< | 
3 : Routine Size: 124 wor | 
> : Maximum stack depth a“ * invocation: 13 words 
: 
1 -SBTTL 158 TEST CODE SECTION 
111640 T58:: 
2098 111640 004767 177404 1$: JSR PC $758 ; 1102 
5607 111644 104 TRAP 
sone 11164 ROR R 
111650 1 BLO j 

5610 111652 000207 RTS PC 
5611 
sei¢ ; Routine Size: 6 words 
36\3 : Maximum stack depth per invocation: 0 words 
5619 
5620 


: 11025 !<BLF/PAGE> 
i 


SEQ 0527 


y 
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88 TEST COD 


CZMLADO Mi~1 


a a A TT TT TT LT TT TT a RTs 
LLL LL ELLY CEE CN ET i atte 










ae 
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oo 
ane 
uw 
~- 
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Y~- 
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"2 
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—! 
@Mw 
es Sy 
Vs _ a 2 ox 
” 4 Zz us as 
a rw) rey) os i“ 
S< 2s — “ 
ae s#os 3 
ius wes -_— oe 
oO at os |Cl™ S s 
me a= Zu Swed 
33 wi = . Se 
ss 3: 2 + oe 
cucu dew a @ w 
— << 2s wr< 
cd S *- eS 
cs _ — a 
== bo og w use 
aa eS of Soe 
cucu — wad =—emene wee cee ee a = 
wn ww 
ire) ee =°o 
— w> a 
=OQ uw@® 
— ra 
nm Oo az oe 
@ —ae ww ce 
z= $8 s3 
ra a 3X 
2-5 gu a3 
a ” o 
2 w Md = 
So 325 $2 
S 32 Sz Pt 3 
s 5, e ; 
S == + “ iT “ 4 jw 
ww ~” st st st +4 = 3 
o us =“ ry) uw TY] UW ‘ pe 
- oe a: a ~ 
se =) =) =) is . =] oy 
z z=5 uaa — ” coe " ~ ~ 
= —w aw &- £* E* & ces DB we - a 
ee Owen Ww Asy one Pq w Ww om te ee 3 has 
Pr «x me ae >w 3 z 2 2au © a ~ S- 36 2 ae 
” Bones e ® @ 6 a Su = = ae ‘ ot P 
ra “>e = ~ a) NX eatin L =) 3! S= ve 
SC oF eee : zs 3, ~8838 
a —w ted w 
“ 3 Ae - & = ' o C5 oe o 
hee oe OE OE OF OE Oe Oe 6 Oe Oe OE 6 ee Se oe 6 6 OD OE 8 OD Oe 6 OE Oe 6 a 6 am Oa 6 ae 9 ee Oo Oe ea oes —) 22s°82- ogame 


SARLADAVAASH SASSI SY SS SS ARON AALA RASS ERREE 
SRA E SSeS SIS SETS SESS SS RASA RRR AA SSUES SSS SERENE SS 


EE ES 
EL OOO OO 


of 
7S *e 6 #6 #6 6 ee te *e *e *e *6 ee FG 6 Ce te Fe ®e *e *6 ©— *6 6 66 eo Fe Fe Fe 6 8 


PIT co co orm 


SSeS Eee TsceseiScisns 
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i ML~-11 L 
T58 TEST CODE S$ 
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EERE REESE 


ololet 
=SOBVOURWV=S 


HOVVVOr 
RUN 


:ML4AD 
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ION 


EST 
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TEST CODE SECTION 


if .LOOP neq ONE then ERRDF (130, SYNC. 








1107 
11 8 case .LOOP from 0 to 2 of 
11 set 
11081 
11 [0] : 
11 pegtn 
11 DCK_EN = 1 
11085 ECC“DIS = 0 
11 EXPECTED = 3; 
11 end; 
11 
uy C1] : ; 
n 

11091 bee EN = 0; 
11098 ECCDIS = 0; 
1109 EXPECTED = 0; 
11094 end; 
11095 
11096 (2) : 
1109 i 
11098 DCK_EN = 1; 
11099 ECC“DIS = 7: 
11100 EXPECTED = 3; 
11101 end: 
111 tes; 
1110 
11104 MLCS1 = read: 
11105 TIME_OUT_LOOP: 
W108 if .DCK neq .EXPECTED 
11109 oe 

n 
11110 
11111 
11118 
1111 , 
11114 PRINTS (THR_FMT, 
11115 PRINT@ (FMT~1, .E€ 
11116 end: 
11117 
11118 ENDSUB; 
11119 end; 
11120 
11121 ENDTST: 


B3-mar-1965 16:91:08 PAs<NEAL 


Wetreb, ates; 


SEQ 0528 ~~ 


Liss-16 V 
>ML4AD.BL 


‘SELECT THE TEST DATA 


‘EXPECT THE DCK BIT TO SET 


!EXPECT THE DCK BIT NOT TO SET 


‘EXPECT THE DCK BIT TO SET 


{READ THE ERROR AND CLOCK THE DCK BIT 


!I1S THE DCK BIT WHAT WE EXPECTED 

!REPORT THE ERRRO IF NOT THE SAME 
DUMPER) else ERRDF (130, ASYNC, DUMPER): 
'CHOOSE WHICH THE ERROR IS ON 


‘END OF THE SCOPE LOOP 


-SBTTL $159 TEST CODE SECTION 


SEQ 0529 
TOPS 
PA:< 
1 
1 


:31:03 


.) 


Cee aed 


9-Mar-1 


$9- arn 1983 


-" 
zn us 
wn 
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° wi 
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wo 
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= YY 
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- _ 
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~ 
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2 2 ft 
- sees @& 
rr 
= oo oS 
oO wr wT 
S a 8 
= oS oS 
i omed , ed « 


Inn 
ANAM AICUIANIAIRUee 





1106 





wn BRASS wn 
MMMM SSIES ES 


AN 


es ee 


+ 
~ 
wv 
™N 


DRSSRES ISIN 
Suessass 


PERRNALA RE 
rarest 


4) 
™ 


oO 
¢ 
wo 
= 





40,@ML 


2$: 


03452 


rye 103432 
03476 1$: 


Besse 


SSu: 
SAS SSSSSS A IIFSS 


nm RAROO Oo ~ 
SS SSssssssssesc ec = 
eo ee iad aoa 
me ee e _ 
S “. 
a - a 
* ~ w 4 4 
ay | ’ | = a 
5 . | S 
a= as * (vy) aud 
ee ee ©@ ee Fe Fe ee 6G Se 66 fe as ee 


era 


eBLK.XFER 
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ted 





- - oe ~ gy 
ol - rr So 

- co = = = ce 
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PC 





R1 


Size 





sar 


= Oh 


Hand 


: 





One 





wv 
‘e 
a 
Nad 
_ ca 
ind % 
. £ 6 88 
& ® 
& Ad o send ened 
*e se *e *e ee ee *e ee %e ee 
a 
. 
bee 
3 
w 
= 
se 
s & 
ae es 
: sg 
od > 
8 2 9 
s aa 
Ne $ wn 
Wo bs Sand 
Nu + x freee 
5 [2 @5 
e = me “g 
oe 
. fg 
> F 
5 e 


13$: 

14$: 

3; Routine 
3 Maxi 
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Dov ~~ eae ae vaaien : ox Dé + ~~ > 
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OS SS CE S&F 


FORRRRS AARSOOC 
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re ener nent 


g ML-11 LOGIC T : 
T59 TEST CODE SECTION SEQ 0531 
MLGAD TOPS | 
TEST CODE SECTION Somer ‘33 08 PA:< | 
11 159:: ! 
11 767 177342 1$: JSR PC,$T59 11117 | 
1 11231 TRAP 66 
‘i 1 ROR 
11231 BLO 1$ 
: 11 20 RTS PC 
: Routine Size: 6 words 
* Maximum stack depth per invocation: 0 words 


11122 !<BLF/PAGE> 


Eee 








SO 
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CZMLADO ML~11 TEST - : 
cz ADO, Mi LOGIC TES MACRO M1113 30-MAR-82 11:18 PAGE 8.5 — 
B66 :MLGAD 99-Mar-1982 16:23: TOPS-20 Bliss-1 
3867 ; TEST CODE SECTION Some 1985 18:57 308 PA: <NEALESML SAD BLL ck c112) 
B69 : 11123 ! 
3870 : 11124 BGNTST: 
B71 : 11125 : 
B72 : 11126 !++ 
3878 1] i TEST NUMBER: TST 60 
875 ; 13 TEST NAME: § PROM DATA TEST 
877 ; 11) 1 : TEST DESCRIPTION: 
+h : 111 : VERIFY THAT CHECK SUM VALUES FOR 
5880 ; 11134 | ALL PRESENT MEMORY ARRAY UV PR 
ae ; 111 5} LOCATIONS ARE ERROR FREE BY: 
883 : 11137 : 1. DOING TRANSFER 
3a 11137 fo D0 MBUS TRANSFERS 
Bi Hap) APPEASE OS Br 
887 ; 11141 | 5 
5891 1114s 3 eel OF 256 WORDS WHERE 
Be : 11149 i DATA FOR MBUS READ AND WRITE 
3 ; 11148 FUNCTIONS IS FOUND. 
5896 : 11150 ! 
5897 11151 | CHIP_$1Z 
25898 ; 1113 i INDITATED THE SIZE OF THE 
fis 11153 : ARRAY MODULES MOS RAMS. 
NR 
5903 ; 111 
$ % ; 111 8 CLR_THRESHOLD; _ ICLEAR ERROR PRINT THRESHOLD 
; ON ee 
t ; 11161 !VERSION CZMLAD CHANGED TEST TO UNSIGNED TEST 
t ; 11168 ineru DSA_CNT from 0 to .LST_BLK do ‘WRITE TO ALL PRESENT BLK'S AND CHECK UNS BIT 
53911 3 11165 : | 
$34 Wee CLR : ‘DISABL 
s = ed e 
14 ; 111 Lut = not 256: iLOAD WORD COUNT 
15 ; 111 MLBA = 10 BUF: ‘LOAD UBUS ADRS 
ite ia) Lest ="oritoe iDO A WRITE FUNCTION 
3 ; 1 Ls TIME_OUT_LOOP: 
920 : 11174 





if .UNS IS_SET | 'SEE IF XFERR CAUSED AN UNS ERROR 





0 
TEST MACRO M1115 SO0-MAR-82 11:18 PAGE 550 
ON SEQ 0535 


Zo-Mar-1982 16:23:04  TOPS-20 BLiss-16 v2(212) 




















; TEST CODE SECTION 9-Mar-19 PA:<NEALEDML4AD.BLI.4 (112) 
: 11 then 
; 1} beet iEOMPARE ERROR PRINT THRESHOLD 
: 11 Nir A aie PAT, ER): 
: 11 PRINTB (TWO 
: i PRINTS (FMT 5" ‘DSA. b 33 PHR 
; 1 if -CHIP_SIZ eql 64 'NEED TO KNOW CHIP SIZE TO PRINT ARRAY NUMBER 
: 11 begin 
: 1 PRI NTB (FMT_8, ((.DSA_CNT<11, 4>) + 1)); 164K MOS RAM 
: 11 else 
$ 11 beg n 
1939 ; 1 PRI NTB (FMT_8, ((.DSA_CNT<9, 4>) + 1)); 116K MOS RAM 
05941 : 4 
$ 11 end; 
sIIGD 5 11 
3 11 ENDSUB; 
+y 5: i ; 
947 : 1199 ENDTST: 
53983 SBTTL $160 TEST CODE SECTION 
5956 11 072212 $760: JSR R1,$SAVE2 : 
5958 11 101456 MOV T.BLK,R2 : 
25955 i CLR : DSA.CNT 
5961 11 18: TRAP : 
1962 11 103072 BISB : 
lisies Gene i a 
11 7 103054 BICB 
5 11 77 (1 BISB 
112374 1031 B1SB : 
11 777 «(1 1 MOV : 
> 11261 777 ~«(01 t MOV : 
11261 177 (1 x MOV : DSA.CNT,* 
11 777 1 102754 MOV : 
yy 4 777 = 2$: ire 
11 oF os 040000 103020 BIT jj § £40000, aML.REG+60 : 
112644 476 BEQ 5$ 
112446 267 102724 INC P.CNT : 








F 10 | 
IC TEST MACRO M1113 30-MAR-82 11:18 PAGE Es] | 








CZ ML-11 LOG 
$160 TEST CODE SECTION SEQ 0534 
5S sML4AD r=1 16:23:04 TOPS 
; TEST CODE SECTION r= 16:21:03 PA:< 


59 
5980 













1124 102720 102720 P.CNT,LIMIT 
: 1 ? 5 ; 1117 
3 1 ? WORD ARR.DAT 
7 11 11676 HOV. SPUR «4, =(SP) : 1117 
9D 119505 1024 MOV f7tsP) 
. 5 ' Pi 

i" ie a8 MOV ; SP,s 

1158] mov 5 OOA.ONte 1118 
Mm 11952% 00 MOV =(SP) licens 

1128 MOV ) 
NS; + 4 SP,.RO P+ SP,* 
3 11253: 101252 000100 CHP GHIP.S1Z,#100 : 1118 
9 11 2 o4e BNE 

1128 MOV =—s_- RRO : DSA.CNT.* 1118 

17 a8 ASR 

1195352 AS 

11 SWAB 

11255¢ 177760 BIC 

1125 _ INC 

1195%8 MOV 

= 
eon MOV : SP,* 
11 ttt BR P 
$ : é 

1 506 3$: ash s DSA.CNT,* 

Hie fee 77% "6 

11262 INC 

112622 MOV 

11568 ROV ; SP. 

136s s © +4 

112642 $: TRAP : 

1156e BLO 
P 112654 6$: INC ; DSA.CNT 
B 112 : = CMP : DSA.CNT,* 
> 1126 BLOS 
0 1126 RIS ss PC : 





: Routine Size: 111 words 











ee eee enemas seen meee ~ 


0 
=— a 1 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 85) 
$760 TEST C ODE Sec 


— SEQ 0535 
‘hon 16:23:04 TOPS 

"TEST CODE SECTION ra1982 1e:31:0% «Pace 

| 


; Maximum stack depth per invocation: 12 words 


~-SBTTL 160 TEST CODE SECTION 


T60:: | 
767 177636 $° JSR PC,$T60 ; 1119 : 
1 TRAP 
ROR R 
1 BLO 1 
000207 RTS PC 


3; Routine Size: words 
: Maximum stack aot per invocation: 0 words 





11198 !<BLF/PAGE> 








can 


yf 
¥ 

3 
+3 
4 
361 
361 
361 
61 
61 
361 
61 
61 
i 
y 

3 
z 

361 
+4 
61 
51 





ML-71 


TEST CODE 





ane Sidi: a 
—_ _ — ee 


H 
EST MACRO M1113 30-MAR~82 11:18 PAGE 454° 

















'¢ 

: PERFORM THIS TEST ONLY IF THE OPERATOR HAS 

: ENABLED MANUAL INTERVENTION TEST VIA THE S/W 
QUESTIONS. 


CT 
ION 
9-Mar-1982 16:23: TOPS-20 Bliss-16 V2(212) 
TEST CODE SECTION Sonor 1985 10:57:08 PA: <NEALESPL EAD Or 1c 7713) 

11199 
01 BGNTST; (BEGIN THE TEST 
11308 144 
11206 | TEST NUMBER: TST 61 
06 | TEST NAME: BATTERY BACK-UP TEST 
11208 | TEST DESCRIPTION: 
11309 | THIS TEST IS DESIGNED SPECIFICALLY FOR T 
11210 | MFG*ING VERIFY STATION. ITS PURPOSE 
11311 | IS TO TEST THE ML-11 SYSTEM FOR BATTERY BACK-UP DURING 
1131 } POWER LOSS AND NO ECC INITIALIZE DURING POWER 
11213 | UP WITH GOOD BATTERY BACK-UP. 
11215 i=- 
11316 
11518 on bse cnr ‘COUNTS T 
1 3 ze, 
: DST, 
11533 Init ERR 

5 es ERR: - 

i 

5 


i fn EEN !pO THIS TEST IF INTERVEN IS SET 
begin | 


PRINT WHICH TEST NUMBER THIS 


UEUIN— 


a ot 


PRINTB (ONE_FMT, 1_61); 






TO START THE TEST OFF WRITE THE ENTIRE ML-11 MEMORY 
: WITH ALL ONES DATA. THIS WILL BE T qe 





me a me el elt lh coh ml en lh ch cel cl cel el eel me eel ed lh ce ce eh ec el ce ee ee a en ee ee ee cee ee ed eed eee eed ed cee eed en eed edd ed eed ed 


ek ed ed eed eed eed eed ced ee ed eed ed eed eed eed eed ee ee ed eed ee eed eed eed ed ee ed ed eed 


4 
4 
44 ! THE ECC INITIALIZE PORTION OF THIS TEST. THIS ALL ONES 
; ! DATA PATTERN SHOULD STILL BE IN MEMORY AFTER 
46 1 IS TURNED BACK ON WITH GOOD BATTERY BACK-UP. 
48 i 
CLR_MBUS: ‘CLEAR THE MASS BUS 
10_BUF = ONES: 'LOAD THE FIRST IO BUF WORD WITH ONES DATA 


SEQ 0536 | 


_———<— = = 





LLL, TTT 


nipinanbenne’ 





POCA 
See ee ee ee | 


ys 


AOOCOOGOOoC 
Ww 


et ed ed ed ed ed ed ed eed 


5 


& 
_ 


RGN 


& 
w 


FOOOOSOOOOGa s 
tt ed et ed Bed ed ed eee wed eed ad eld 


OBNRU KUO Ooo Vo 


RAO Oanmes 
end ed coed ed eed ad 


PAO RAO 
SSSLSAFERTIS 


ond et coh ered cent ad cna mtd eh cold cand) nh cand) cad each om an 


BHIRAS 





ee Ne on SE tie 
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C TEST MACRO M1113 30-MAR-82 11:18 PAGE 5564 
ION SEQ 0537 
3: TOPS-20 Bliss-16 V2(212) 
TEST CODE SECTION $ S-ner -19BS 1G $3308 PA:<NEALE>ML4AD.BLI.4 (113) 
1 1 DSA_CNT = -1; 'RESET THE DSA COUNTER 
1 4 tn ‘LOAD ALL OF MEMORY WITH ONE'S DATA 
11255 'LOOK FOR CONTROL C 
1 DSA_ Mit = .DSA_CN THE DSA C TER 
1 WRT _TRANSFER Site : lic. DST = .DSA_ ent’ SRC = 10_BUF); 'DO THE WRITE XFER 
11259 ! 
i 60 'VERSION CZMLAD CHANGED TEST TO UNSIGNED TEST 
" 6 "until .DSA_CNT eqlU .LST_BLK: 'REPEAT WRITING UNTIL THE LAST BLOCK IS DONE 
+ 
11568 | 
11266 ' SET THE VOLUMN VALID BIT ‘vv 
11267 | TELL THE OPERATOR TO TURN THE 
11268 | POWER OFF WITH 6000 BATTERY BACK-UP. 
11269 ! THE BACK GROUND PATTERN OF ALL ONES SHOUL 
11270 | BE MAINTAINED BY BATTERY BACK-UP AND ECC INIT 
1 % UP SHOULD NOT CLEAR THE PATTERN OUT. 
11 i 
11274 LR BUS: 'CLEAR THE MASS BUS 
11275 mcs RD_IN_PRE: ISET THE VV BIT via A RD_IN PRE FUNC 
u 26 PRINTS (ONE_FAT, PUR_OFF): TELL OPERATOR TO SHUT POWER OFF 
11 id. 'DO NOTHING 
11 in 
1 +! BREAK: 3 ‘LOOK FOR CONTROL C 
1 until not (.MOL): ‘UNTIL THE DRIVE POWER IS OFF 
7? DELAY (TWO_TH_US): !DELAY FOR BATTERY BACK-UP MAINTAIN MEMORY 
11286 } | 3 | 
11 ; ! NOW TELL THE OPERATOR TO POWER UP T BOX 
11288 ! WITH GOOD BATTERY . THEN TEST THE 
11289 | T AND THE BACK GROUND 
1 90 | PATTERN OF ALL ONES TO STILL BE IN MEMORY . 
| o 
11292 : 
1 § PRINTS (ONE_FMT, PUP_8B): 'TELL OPERATOR TO TURN BOX POWER BACK ON 
1 % 'DO NOTHING 
1 AK: | ‘LOOK FOR CONTROL C 
1 until .DRY: ‘UNTIL THE DRIVE IS READY 
i DELAY (10): ‘WAIT FOR THE DRIVE TO SETTLE 





ee, ll OO OS TT LS TE A Oe TN A - 


=“ 





0 
EST MACRO M1113 30-MAR-82 11:18 PAGE $55 












ZMLADO ML-11 LOGIC T 
60 TEST CODE SECTION SEG 0538 
181 :ML4AD 9-Mar-1982 16:23:06  TOPS-20 Bliss-16 v2(212) 
361 : TEST CODE SECTION li 18:57:08 PA:<NEALE>ML4AD.BLI.4 (113) | 
261 4 1 3 ifn not (.VV) {DID POWERING UP WITH GOOD BB CLEAR THE VV BIT 
186 11305 begin ‘THE VV oiT GOT CLEARED 
1 11 ERRDF (154, ASYNC, DUMPER); iREPORT THE ERROR TO THE OPERATOR 
1 INTB (ONE_FMT, BB_VV_ERR); iTELL WHAT THE ERROR IS 
6190 11 : 
191 11310 INIT_ERR = ZERO: 'CLEAR THE INIT COUNTER 
198 11311 BB ERR = = ZERO; iCLEAR THE BATTERY BACK-UP COUNTER 
195 1 1g a “1; IRESET THE DSA COUNTER 
195 1 1 da beg ‘WRITE CHECK MEMORY AND TEST FOR BAT BACK-UP AND/OR NO ECC INIT 
AK: 
ptge 11 16 | !LOOK FOR CONTROL C. 
5198 1131 DSA CAT = -DSA_CNT + 1; ‘UP THE DSA COUNTEE 
5199 1 18 WRT” CHK_ TRANSFER (SIZE’= -256, DST = .DSA_CNT, SRC = 10 BUF): 'DO THE WRITE CHECK XFER 
25201 11320 if .wWCce 11S THIS BLOCK IN ERROR 
2620 11321 then 
262 1 é begin 'THIS BLOCK IS IN ERROR 
620 11324 if .MLDB eql ZERO 'SEE WHAT KIND OF AN ERROR IT IS 
261 1 het INIT_ERR = .INIT_ERR + 1 1IT°S A INITIALIZE ERROR 
: e 
7 BB_ERR = .BB_ERR + 1; ‘IT’S A BAT BACK-UP ERROR 
end; 
3 end 


i VERSION CZMLAD CHANGED TEST TO UNSIGNED TEST 





et ed ed ad ed ed ed dd CO 
MO COONAUSWN Oo OC 









Pededaededeaes 














EM 
IS PROBIBLY D BY THE BATT “id BACK-UP 
LOGIC NOT MAINTAINING THE MEMORY DURING 
POWER FAILURE. 


535 4 
56 until .DSA_CNT eqlU .LST_BLK: ‘REPEAT WRITE CHECKING UNTIL THE LAST BLOCK 
538 ! 
539 ' IF THERE ARE THAN 127 SECTORS IN 
ERROR WITH ALL Phialscy in THEN THE 
be ' THE ECC fairiars AND NOT IN THE 
69¢ 5 | BATTERY BACK-UP OF RenORY 
62, 5 | IF INITERR IS NOT > 127 AND THERE ARE 
62 $ | > 100 WORDS READ WITH DATA OTHER THAN 
5208 ! ALL ONES OR ALL EROES THEN TH 
62 i 
i 
i 


ed ced eed ed eed ead cad ened eed end end md cand end eed cond ee cen md ced eons eed ced ed eed ee od 
eed ced wed eh ed ceed eed cee cen eed ccd eed ce coed ed ce md each eed eet eed eet) cd eed nd ees ood 


LUNVSSe 


I aaa gtr 127 | ‘IS THE ECC INIT LOGIC IN ERROR 
j 


el ae) 


Se essrsessestnssennsneessneeeneeeenn anne. 












0 
ZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE Es 
60 TEST CODE SECTION SEQ 0539 
7 ;ML4AD 9-Mar-1982 16:23:04 TOPS-20 Bliss-16 V2(212) 
3 : TEST CODE SECTION ooo 1385 16:57: 8 PA:<NEALE>ML4AD.BLI.4 (113) 
40 : 11355 ! THE ECC INIT LOGIC IS IN ERROR 
41: 11 36 ERADP (155 ASYNC, DUMPER); IREPORT THE ERROR TO THE OPERATOR 
4@ : 1 3 f ONE_FMT, 8B_INIT_ERR); iTELL WHAT THE ERROR IS 
44: 11359 else 
45 : 1 begin 'THE ECC INIT LOGIC IS NOT IN ERROR 
47 : u it -BB_ERR gtr 100 11S THE BATTERY BACK-UP LOGIC IN ERROR 
e a 
49: 11 Peioe ! THE BATTERY BACK-UP LOGIC IS IN ERROR 
50 : 11365 ER DF (156, ASYNC, DUMPER): IREPORT THE ERROR TO THE OPERATOR 
51: 11366 NTB (ONE_FMT, 8_8B_ERR); iTELL WHAT THE ERROR IS 
26 : 1136 an 
53: 11368 
54: 11390 end; 
55 ;: 11370 
26256 : 11371 end: 
7: aE 
: 11373 ENDTST: 'END THE TEST 
-SBTTL $161 TEST CODE SECTION 
112674 004167 071712 $761: JSR R1 : 1119 
112700 024646 CMP =(§P) .=(SP) 
112702 032767 000001 067500 BIT #1, INTERVEN : 1123 
112710 00100 BNE 1 
71 112712 00016 JMP 
ie 112716 012746 1$: MOV 47.61 (SP) : 1123 
112722 012746 010240 MOV FMT 
7% 11 012746 MOV SP)° 
75 11 01 MOV : SP, 
16 11 734 104414 TRAP 
6277 i 152 128869 102500 B1SB 
26279 1; 708 i BIC 
26280 11 7 102462 BICB 
6281 11 77 (1024 BISB 
26282 11 1 101026 MOV : 1125 
26283 11 177777 MOV > *,DSA.CNT 1125 
26284 11 2$: TRAP : 1125 
6285 11 INC : 1125 
6286 1 177400 mov : 1125 
es 1 000070 mov 
11 014022 MOV : 
1 MOV : 





a 


~ aes oe 


Ee ee i oe 


0 
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SEQ 0540 


ScnaciSS 1st 


sML4AD 





TEST CODE SECTION 


FRARARE SO900900¢ 


1 


25 
26 
27 
27 
27 
1128 
1128 
1129 
29 
29 
30 
30 
1130 
30 


1 


3; DSA.CNT,* 


: *,SSTMP2 
3; *,SSTMP1 


; SP,* 

















= on 
: ae re 
° it e °= 
S a ve &£&@>6 yas": 

Ses ennebecsen eT 





ee @ pee oe 
sicvev,bepesenepspssuyy,Sesseses 





ee ee oe a 
®. €@8 48 € 02 8 £8. 
~ FF Tw ~ NM 
5 OR 8 x 
f= ] oc © So © 
- -oe&- o ted 
sat SkReratss 8 § gE m= sees 8 RS 
+ ° a ° ww S 29 
= sssse=s 583 ss CS S 3 
~ ~ OOVOlTNURMM = TIMOO SOU SMe we) wow oo 
RERIRSERSRE SESS ORNESES SRS AESS SES NEES SANUS SORES SS 
= ee OOOCS8er - SCOSocoo S Soooee ee oSoS ss Or OOoooeo 





NOS CRNA SS SAR VSISeY ton oe Hh 2 
SS EAA RISS stat taht ARE a aR 


Ge Ge GE GG Ge Gee Ge GE GF Ge Ge Ge Ge Ge Fe GE GF Ge GE 
LLLLLL_LL LL ee Ge Ge ee em eee ge Gee ee ee ge gee ge gee Ge gee GF Gee Fe Gee Ge Gee Ge Ge Ge Ge GEE Ge GE Ge GG 


uettietunee ene ee 





BBseeeveeeT 





SEQ 0541 | 
TOPS 
PA:< 


$9-mar-1983 16:21:03 


Sees esessssssstensnsssiessentestssseseseameesteeeenvenereeeeesene ace - 
™ 


o one 
—cO -_ 
wv =) 
zw [esi 
” 
adhd 
o tu 
< a 
a oS 
ws 
i. 3) _ 
- 2) 
ee Loa 
- _ 
~~ 
NN 
ao 
$ 
o 
~ a 
x 
" wr 
- = 
- ee*e 
, sumed 
= 
Oo 
ae 
3 












ww wv Ww 
MMMMMmM ma Mw ~ min R Ve 
Sel oe ed seed seh oe oe er FF CCS SS FF Ef - er - - Fo 
Celia crit seat tell eel oe ee FF SSS SK — = - rr ef - Veeed seal oad 
— 
~” * 
fag > ar . > Re 
eS shh & S ie ; 
wee Bwewsa has = ws S 
‘eet VN wWuve a a f 
a ww po Fy = WwW = ww ta eo 
ae Sar Aime ee z=agoasz - 4 
w =8. ar maane«e ww nom a = S. 3 rr 
ce fe %e Fe Fe Fe Fe Fe Fe Fe *e Fe Fe e * fe %e @e Fe #6 *e ve se ee ee *6 %@ & %e &*e*%e 
~ 
on 
rt 
o us 2 7 . 
>= Ez = i a 
os MWeaAr wy + aod " 
a. 2a.Wwau.0. » o neg ww ~~ 
” ~ aie w go- ye A a. « 
~-Oo a = Sy<T & ay o— n+ 
‘ic Ww ve sous 28 . ae ys 
* « a ~ 7 ss s& 1 e eo 
WOM 1 cucu SSOEAMS 2 ae: aw oLG 
2ZN- fF ecCBVvuee [+ ad eo Oe pt i 


srcrsuacitenactMae 





eo a ae ee se 6e @e 
m AS is SRS 
y 
nae 
™~ 
k 888 38% Sh —_ 3 sou ge 
~ ~ 32 S ~ 3 oad _ ™N 
= $888 8 ss S 
or pnd eA 4 


038707 
091000 1 


PES OUSS SSL O LOR GR SSS SES NC MN SOS SSS TSS 
Sheen Sossiees Renee eens es eeSuERRSS 


RaaaRe RR ASes ee 
patecestoseenepeceeenne 


WSUS S 


Sesssseess 


ERE CREER ERE RE SASK ects 


Ssssse 


eG Ge 
FP ee FF EE OE Ee 
saneenattataddiattaatehdinimaiaiiendiebininedienieancat aidiaiendie nae hon ame 


aa E TS 





“MN 


PSSSSSS3S33 
NO=SSRIES 


PO 





N10 
C TEST MACRO M1113 30-MAR-82 11:18 PAGE 459 
T SEQ 0542 


MLADO ML=-11 LOGI 
61 TEST CODE SECTION 
sML4AD -Mar-1 TOPS 
: TEST CODE SECTION 33-mar=1985 16 53: 08 PA:< 
113520 000207 RTS PC 


: Routine Size: 203 w 
: Max mum stack depth” " invecattens 18 words 


~SBTTL 161 TEST CODE SECTION 


1 T61:: 

1 : $ 767 177146 i$. JSR PC,$T61 3 1137 
1 2 1irH4 TRAP 

1 ROR 

135 103773 ate 1 

13534 000207 RTS PC 


; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 


ee 


; 11374 !<BLF/PAGE> 


3 








| 
ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE 560 





CZMLADO 
161 TEST CODE SECTION SEQ 0543 
:ML4AD 1 16:23: TOPS-20 Bliss-16 V2(212) 
¢ ; TEST CODE SECTION $3-par=1983 18:33 08 PA:<NEALEDML4AD.BLI.4 (114) 
6 
CLEAN UP SECTION 
THE CLE uP 





—Be 
ti) 
o 
a 
freee fered 
= BRE 






y 
ae 
y: 


o_o 


Oe 6 em 0 ae © ee © ee 8 ee 8 ae 6 ee 8 ae 6 ee 0 ae) ae 6 ae 6 ae 8 ae 6 ae 8 ee 


‘BEGIN THE CLEAN UP CODE 
: CLEAR THE MASS BUS 


RE TO DRS> 
1'END THE CLEAN UP CODE 





sc es ce ce ee ee ed ee ee ceed eed ee eed ce eed eed eed eed eed ee 
ed ed ed ee ed ed ced eed wed ee eee cee ceed eed ed eed eed ed eee ed eed ee 





Se Ge Ge Te Se Ge Ge Ge Se Ge Ge Se Se Ge Se Be Se Pe Ge Se Se Ge Ge Ge 












-SBTTL LCLEAN y SECT10N 
5 777 000040 101700 LCLEAN: 1 #60 are REGHAO ; 11 | 
)HBBEE. bBR2EF : ne) | 
: Routine Size: words : 
: Maximum stack cath per invocation: 0 words 
| 
-SBTTL LSCLEAN TEST CODE SECTION 
113546 LSCLEAN:: 


Po pee Pee pe pee pee ee pee yee pee pee ee ee 


SS eee sss ———— 















11 

CZMLADO ML-11 LOGIC TEST MACRO M1113 30-MAR-82 11:18 PAGE $6] 

LSCLEAN TEST CODE SECTION SEQ 0544 — | 
5499 sMLSAD TOPS | 
2650¢ ; TEST CODE SECTION ra1980 16:91:03 | Pace | 
. >: 

5502 1 767 177764 JSR -LCLEAN ; 1139 
ee ius mR 
5504 11 | RIS) = PC 
j 06 z Routine Size: 4 words | 
65 ; Maximum stack depth per invocation: 0 words 
551 
i ; 11399 LASTAD : DEF INE THE cx? S LAST ADDRESS 
5515 ; 11400 BGNSETUP (0): ‘SET UP ZERO P-TABLES 
3 11401 ENDSETUP; ‘END THE SETUP 
113556 113 BLSLAS::.WORD TSFREE 
11 eWORD <<TSFREE-<BLSLAS+4>>/2> 
11 TSFREE::.WORD 0 
113368 LS$LAST== BLSLAS+4 
TsPThive= 0 
-SBTTL SEND.LINK TEST CODE SECTION 
11 000207 RTS PC : 1139 





; Routine Size: 1 word 
; : Maximum stack depth per invocation: 0 words 





— <—“=— —<——_ ——~— 
A A i, A NN —- 
a a a a ae nn entiisticnestiicnssntiiien nl 





rrr errr ester 


1 
MACRO M1113 30-MAR-82 11:18 PAGE 36) 









SEQ 0545 | 
ML4AD TOPS | 
: TEST CODE SECTION ray9RS 10: gf 03 PA:< 
; OTS external reigcesces 
“Glost S$SAvES: BisPus, aisPut, Seecty 
| -GLOBL BLSDIV. BLSMOD. BLSMUL’ 
5 
: Size: 15786 code + 2346 data words 
3; Run Time: 02:46.0 
: s.apeed Time: 03:20.7 
0 ; Memo “y Used: 124 pages 
4 | : Compilation Complete 
58 000001 END 





1 
CZMLADC ML~11 LOGIC TEST MACRO M1115 30-MAR-82 11:18 PAGE Sono 










SYMBOL TABLE SEQ 0546 
CS$CLCK= 1337 1242 HELP = 
CSCL F .CON= G 127 HOE = G 
G 9124 HW.OR. 
F .PUR= G 91245 IgE = G 
7G 124 IdtU = G 
ST 0G 0121 IER = G 
F 64 12200 INTER = 
M= 01 912216 INTERV G 
160 G 1 4 10.BUF 
156 G 1 ISR = G 
154 G 012244 IXE = G 
G 5 402 G 1 ISAU_ = 1 
G 152 G ve0C ISAUTO= 1 
G 4 1744 yet ISCLN = 1 
: of ne re 04 G n71¢ , sey Pa 1 
000 02100 »00C SHRD = 000C 
G 100005 000¢ 10002 ISINIT= 000041 
G 900003 1 000 ISMOD = 1 
G 900001 1 90006 ISMSG = 1 
G 00€ #4 0C 01 ISPROT= 0 
G 200026 i 00 ISPTAB= 1 
G ' ,! 0C ‘ A! ; ' 00C ' TSPWR = 1 
G 000 3 ! 11 100013 ISRPT = 1 
G »0C rte ¢ 717 FSINIT= 1000¢ ISSEG = 1 
6 006 907 4 FSJMP = 10005¢ ISSET 1 
G 100040 107254 FSMOD = 000006 ISSFT = 1 
G 900011 ut FSMSG = 006 ISSRY = aod 
G HOC +44 ! FSPROT= 00021 ISSUB = 1 
G 000C 007% FSPUR = 000017 ISTST = 000041 
G 00031 075 FSRPT = 00001 JSJMP = 000167 
G 100023 MT 0075¢ FSSEG = 0000C LAST.B 020344 
G 000 07¢ . FSSOFT= ¢ 006 LAU 004704 
G SU 14 F T JUC £ {' : FSSRV = JUVE 004660 
G 0C 017 F i) de FSSUB = 000C 113836 
00200 6 100016 FAT.21= OC F$su = 00001 72 
" G 00 015 FSTEST= ¢ 0¢ 1 1354 
101000 6 100377 FAT.23= 01 GD.BLK 020312 015400 
oC 56 000 7 91014 ' 4006¢ 027650 
903512 G 006 7 MT 7 90020¢ 016034 
70 56 : 9006 4 ait ' DOC if oa sia . 
: M000L 3 = 006 »000C 0000 
90446 G 900021 FAT.4 = 0¢ 52 1004 ' sptce 
OC G 00C 5 FMT.5 = ¢ 06 65 000C 14 
OC G 90004 FAT .6 = (¢ 0¢ 000¢ LST. aps db 
04¢ G 000 1 FAT.7 = 00706 00000 LST. 19356 
i G 900037 FAT.8 = 00703( 100406 LSACP 110 G 
900400 G pe eeaz patos = Beet D0C tot ze & 
, : t2=€ D000C 
' 1641 FNC.7 7 ODOC LSAUT G 
017% 102360 6 ENE 12 OF 100006 LSAUTO 669 G 
1401 10000( ENC: 12= 01 0001 4( LSCCP 106 G 
000 i FNC.13= 01 10000 LSCLEA 113546 
000( 5354 FNC. 14= 01 00040 L$CO 32 G 
0000; DROP.C 01540 FNC.15= 01 00126 LSDEPO 002011 G 
C$BSUB= 0000C R 8985 G ENC. 1 4 000004 t SDESP 36 : 
ODOC .i7= € DONC 
CSCEFG= 000 DY TERS 04 FNC. 18= 019414 100019 tSDEVP 002060 


SEQ 0547 


Fi 
MACRO M1113 30-MAR-82 11:18 PAGE 562-2 


LOGIC TEST 


SYMBOL TABLE 


CZMLADO ML~-11 


RIORSZANSASVLSS Nb hed >ox vr POW a6 CHIL 
RDANANAR OOS OR eS SPF ERER IS TRE IS ata ~~ Parrett 
pa th ee A tee 








2aaa aaaaaanaaaaaaoanana 


FE EEE ESTES KER Sa ROR Ia RR AE RR AR RRR RAR RER ER: 
aa a. a. o. a 


2PDOOKC wows 
Ree .OO~ Dx >: SHAMAIASR SHAS AS Soe HAMS AAR bey ~we+a 








r= ~ jE ZOAGaeHre> esoosss $$5545 3335539253 935 PEPE prep rnrr 
SOVGSOSGSCSGCGCUGOORCYL 
aqqeqeaeeeecaeceeeKeeace = 2222222 ee eer eee 7 
eseeesee@*eseseeee#eee#e#e#rFsee#ee#e#e#@*# ®*eese#eee%#e##8e#8e##e#e#e#e#@é ® @e@ee#8#e@eee#@ee#éese#es#§*é ® @eees&e?se:es 
4406066060406046406000460804 Qaaaanaaaanaaaanaaaaaananannaoanooanoanannd 
TOR THRE AND ORS SON auAnNow DR AR MN OMaOuUrrl PAROS Or z 
FNOCRKAC DOR.OOC AO Pen 
IAAI, DO OOOO 00S RAR RR SS SAU: IOOSOOOOOOOOCOS 
ttt aS a 0 9 9 


SOOO DOGO OSOOOGOOOOOOO OOO nn en 


~ACE 


$333929229239233233323 333 


&208088480480000a00a0000a0a 


<s 3 G2 th ta, AD 
PELEL EET 338 titi Lett Peper 
ees Se eae ae 


anaanaanaaanaaaa aaanananananaaanaaoa 











dalbeas sesesneveisevene eee “thas 
ae SaecEEEEEEEEEREEEEEeReeeEEEtEece#2.0 











pabiiots 
fice 





steasrraccoesecneunscaumennnemmacmnenneen 
- “pd ~ on 











SEQ 0548 


1 
MACRO M1113 SO-MAR-82 11:18 PAGE 6's 


LOGIC TEST 


SYMBOL TABLE 


CZMLADO ML~-11 


BS Seg NSS ARN OR RR eh ict tah et peta ato 
phd Sot hr ona ai ob bo ob bo = FF EF FF 


SOOSOOOSSOSOOOOSOOOOSOOOSOSOOOOOSOOO 2 es 


secesacccceceeceectecects SBS. SENSOR oo. 








ee 
ee 








PEEK Er Ee KOK 
» {OOo oc FF FF FF EF FE FO FE EE 





sees fase BRR ERR ESE EY oH i i ae 8 F J 





WE ee Pewee 
Wu ee eseeoeoeee#*ee#es#ng$e@eee#eeee#ee#se#*ee#ee#ee#eseeseeee#eseetets#86rtreseeees 
s®* «es @ 

22208 
>> 





o- 





° - - - . . ‘ ix a :_-_| = 
Bat NY ON - SESS 
nN BQO ONC wor \¢ 





SS SHEN OOO LEAL RR RARE 
0 Pe 


am bm mm mm Be bm bm bm tam tm bm bm bm a dm mb fm bm bem bm fm bm em bm frm fm fm fm fe fm frm fe > free free free hme fee em fee 




















o ie) 
Seesneesysc esses vaNs IAD OMe N S 
SE SiseNoaTSN aoe ee ye ee gr —-SO00— = 
SOOlCOSSCOO Ssssocthhtssssssusess ~-OOococ HOM 

nnunnnunun iy i | ae iT] ou 
- QD po tee 
Riowewonma® gee ve ger ieee Tt for 3 
EESSSs se eeoms Stas nex eNevoCuUe seg. Swe wae < 
Od A ds a a =) fee fe Re $ 
rte ep eet tt ee SS pet tinted tt toh tel tok taht badd raf afaka 
oO 
BSS SYON OS LIS LGN te gRNEgSR ONE 
at AMINA Sh AMO vi SeSBe SoS 

> 

SSSSSSSS555SS 5S SSS SSS SSS SSNS MANU N NNN ONO SSSSSESSSSSSES 


ogegagagaeyeved izzy tieeg Seteqranascuasee ys 


eee ee 8 @ ® 
WSUuyugou 
Qaaccacccaccaccocacocaacaas eeeeeeeeeeeceeeereeee yey 





SEQ 0549 


H 11 
MACRO M1113 3O-MAR-82 11:18 PAGE 62-4 


CZMLADO ML=11 LOGIC TEST 


SYMBOL TABLE 


Be Saree 


ee Yee ore 


DRAIN ODOR OO 
9D A CD OH GF SP HH wt Gh PE Gm OO QO ath 


SSRAMSRNSOR MAN 
Reamer eeoe eens 


MY PP PPP PP PS 
wr nnn 
PAA AA 9 AA A F 09 MMMM 





LEAL AAA 


bm ee ee bm ee he bm be bm be be be 
PAC 15 OF PD 04 19 09 69 64 MMHG 





OPM FLAN OR. CO ek A nl bo 


Pa am Dm Bam fm fem mm fee pee free fee fim fram fem am 
> AP VF A OD HO OO UF OF CF WEE 


WORDS ( 82 PAGES) 


35594 WORDS ( 140 PAGES) 





000 
001 
1558 


: 00:16:01 


ML11,ML11/=SP/CR:SYM=SVC/ML,CZMLAD.DOC ,ML2AD,OTS.ML3AD.ML4AD 


0 
| 
ERRORS DETECTED: 




















eee - — -— -_—- 


11 
MACRO ON 350-MAR-82 AT 11:24 wor} 1 ’ 
CRE 


om pt, Re SENN, MT Re 


z a + Bett So . oo ee oe 


aul : L: 63-10855 












-1 
1 
13207 
; 5 
160-21516 463-2 1466 
no *488-22798 489-22828 





434 7600. 368-96908 520-24397 562-26560 


5098 113-3506 299-12824 301-12899 302-12978 334-14654 336-14740 


SEQ 0550 








Ji 





CREATED BY MACRO ON 30-MAR-82 AT 11:24 Pace 2 


persia SACISUG MACMSCE MECULIOG SRCUGGRE RBCAUEH. EBUERR 2710 


417-1 


acer 


boas ¢ : ig if a : - 369 520=24401 562-26560 
3 G #21-5 = = 
072 G #27-8 111- 111-5592 = 111-3401 = 3501-12932 418-19097 515-24128 521-24418 562-26559 
soar 6 UB a” a a Be 
00 6 #4286 
Sei PRESSE JOKERS URNS SLOEHIL, UCHR, SARUEHSE sagt wtte-zzr” sor zees 
1704 #107-5224  483-22550 488- 1 
01401 #89-2248 +%205-8022 *205- 551=25998 
00005 #6-1 
1 3 #61 
r4 #6-1 
#6~-1 
eB 
ines 
3 #6-13 
#6-13 
36 rahe 
rs 
& #6~-1 
3 #6- 
3 #6-1 6-65 
5 #6~1 
46-1 
#6-1 
#6~1 
57 #6~-1 
#6-1 
#6~-1 





titettettatiad 





2 ee 


OL 


ee eee 
a ee 





SEQ 0552 








SSSeCSPRSARaDErnes RY 
dur beh beheld L htddt 
SERSERRSR ER CCSERA BRS 
Sroneaveaeenee Pore 
") bea @ 8 3 
wo be 
eer pase 


3? * 


1 
i 
241 





711 373-16732 397-18014 398- 7 7 
th, 353-36738 8014 39818054 404-18369 405-18405 














wt Bn 
=e 
Sc 
2 
, a8 
ne es 
= pes 
m4 
~ oo 
co 
| a be 
; re 3 
we 
oO 
: § a 
ro ~ ; oe CP EE 
3 Heeoeoeeesesseeeezeorg a 4 
Lee) 
~o 
Oz 
oe wVvVvvevo 
aa TOMA MMRKWN Lat be 
© oo o © 
Srvununnnnnnnnnnnnnn a " nuun 
20k oBOUSS, Pee 5 § s3s¢ 
Essa sseseesye oes eS eects 


















L 11 
ML11 CREATED BY MACRO ON 30-MAR-82 AT 11:24 PAGE 4 
SYMBOL CROSS REFERENCE CREF SEQ 0553 
VAL Re eaeaceS | 
; “S638 | 
#9825059 
G ~96 
€  5en96 | 
¢ 4 =161 93-2513 205-8011 
110-3367 4846-22555 488-22802 
G  #94-255 
1 
=2787 104-3084 35515746 %361-16058 367-1 =16459 *374-16761 *380-17096 *382-17211 
+398-18079 : v9 1103 eh #417=1903 nae yaobest £4,782 393 1398-3043 24131 HY §-24137 *eo p= oe57 ©390-26575 
: 7 -23176 
FIRSTS Ge0e62 1 “ii 25-11581 54-1569 354-15718 381-1716 
a oe i rat O51 454 =4953 365-1290 
11 1-1 at 6-1164 -11667 
=| =] -1 -12020 292-12445 
“151 7~13268 13318 316-13749 
~ Ig 5-16811 406-18471 435-20030 
FMT.1 = 006462 si 383-5536 _— 
mrt = Bs 
FMT.12 = 007224 3264-14168 325-14196 
rie Ses 
FMT.15 = 007370 
AaB} = bore se 230-9229 236-9532 243-9925 28912303 291-12376 292-12452 319-13922 
FAT {18 = Oorees 
"19 = 007 3 
Fa = 006306 ee rye 3462-15067 411-18709 436-20045 537-25263 
FMT-21 = 007734 495-2312 496-23196 4497-23231 502-23498 50323530 508-23803 509-23835 
FMT.23 = 010072 
"26 = 01014 192-7397 192-7 193-741 193-74 193-74 193-7436 193-7443 
a 198-9b56 19 Fie 194-74 135 194-74 
FMT.25 = 010166 
FAT-3 = 006574 495 
FMT.4 = 006620 495-25 5-1 61 
FMT -5 = 006650 493- 397 s06-1 430-19728 431-19771 4631-19805 4679-22325 
FAT? = 0070 02 495- 599 s te ae at 458-21221 4459-21247 460-21289 
FMT.9 = 007 #95-2601 23361-16108 4461-20363 5551-25994 
FNC.1 = O70980 497-2728 33 ~10421 





Ne er Sse sseesesessseesessstsnsenstsnsssssnssties ussnsussssenmsmenemmeneeeeesccr.......... - — = 


M11 
CREATED BY MACRO ON 30-MAR-82 AT 11:24 Page 5 
wey REFERENCE CREF SEQ 0554 








V REFERENCES 
= 01227 pees -13194 “1 fat P ~13314 
: o ir 738 “13211 a6 1393) He it, 5 314 ~13507  3992133)4 
= 012334 #90-2740 iS z # 726-36308 45320979 4654-21000 
= ao = 
= 01 497-276 391-17680 440-20300 
= 012372 #97-276 0 
= 012404 #97~2744 393-1780) 4460-20294 441-20356 
= 012414 #97-2765 24-19413 
= 012426 #97-276 
= 012164 497-37 257=10597 257=10613 300-12872 301-12908 
= 01245 138 ? 
= 012464 « 738 sa 
= 012172 #97-27 11995 1 84-12036 4668-21734 4672-21967 
= b155e psa ed ~ HE 64-1 1266 5O-11308 397 i138 271211352 
2 e72-11 77 12289 1538 s 1g-1 ar Se 430-19750 
= 012226 #97-2 = - 77-11 277-11702 278-11720 
278-11749 a-443 re 8692 24-194 5 eee noe 4672-21968 
= 012234 #97=2 11944 = 2 
= 012244 w97-27 5 “ist 1 
920082 411505603 
020210 Wie-see8 tat = 3 25 767 
= 010270 #95-2 2 395- 7=1479% 3642-15053 393-17803 
441- te 95 4 St 69 4470-21808 479-22311 495-23119 
502-234 
= $9020 oe-13 | 
= 000040 #6-13 6-39 7-229 7-277 7=316 7-348 
= 000007 #6~13 
= 000016 86-13 , 
= 000041 #6~13 6-13 6-1 6-1 6-13 6-1 6-13 6-13 6-13 
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